EnigmA Amiga Run 1996 March

home *** CD-ROM | disk | FTP | other *** search

/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / mui32dev.lha / MUI / Developer / Oberon / txt / Mui.mod < prev next >

Wrap

Text File | 1995-11-19 | 149KB | 3,997 lines

(*------------------------------------------ :Module. Mui.mod :Author. Albert Weinert [awn] :Address. Moltkestr. 68; 50859 Köln :EMail. a.weinert@darkness.gun.de :Phone. +49-2234-480800 :Date. 19-Nov-1995 :Copyright. Albert Weinert :Language. Oberon-2 :Translator. AmigaOberon V3.20, Oberon-A 1.6 :Contents. Interface to muimaster.library V12 (Mui 3.1) :Imports. automatic created part by Stefan Stuntz --------------------------------------------*) (* <*IF OberonA THEN*> $IF OberonA *) (* <* STANDARD- *> <* INITIALISE- *> <* MAIN- *> <*$ CaseChk- IndexChk- LongVars+ NilChk- *> <*$ RangeChk- StackChk- TypeChk- OvflChk- *> *) (* <* ELSE *> $ELSE *) (* $CaseChk- $NilChk- *) (* $RangeChk- $StackChk- $TypeChk- $OvflChk- *) (* <*END*> $END *) MODULE Mui; (* <*IF OberonA THEN*> $IF OberonA *) IMPORT Exec, Utility, Intuition, SYSTEM, ASL, Graphics, Kernel, Sets, Classface, IFFParse; (* <*ELSE*> $ELSE *) IMPORT Exec, Utility, Intuition, SYSTEM, ASL, Graphics, Classface, IFFParse; (* <*END*> $END *) (*************************************************************************** ** ** MUI - MagicUserInterface ** (c) 1993-1995 by Stefan Stuntz ** ** Main Interface File for AmigaOberon and Oberon-A ** (c) 1993-1995 by Albert Weinert ** **************************************************************************** ** Class Tree **************************************************************************** ** ** rootclass (BOOPSI's base class) ** +--Semaphore (baseclass for semaphore equipped objects) ** ! +--Applist (private class) ** ! +--Dataspace (handles general purpose data spaces) ** ! \--Configdata (handles MUI configuration data) ** +--Notify (implements notification mechanism) ** +--Family (handles multiple children) ** ! +--Menustrip (describes a complete menu strip) ** ! +--Menu (describes a single menu) ** ! \--Menuitem (describes a single menu item) ** +--Application (main class for all applications) ** +--Window (handles intuition window related topics) ** ! \--Aboutmui (About window of MUI preferences) ** +--Area (base class for all GUI elements) ** +--Rectangle (creates (empty) rectangles) ** +--Balance (creates a balancing separator bar) ** +--Image (creates images) ** +--Bitmap (draws bitmaps) ** ! \--Bodychunk (makes bitmap from ILBM body chunk) ** +--Text (creates some text) ** +--Gadget (base class for intuition gadgets) ** ! +--String (creates a string gadget) ** ! +--Boopsi (interface to BOOPSI gadgets) ** ! \--Prop (creates a proportional gadget) ** +--Gauge (creates a fule gauge) ** +--Scale (creates a percentage scale) ** +--Colorfield (creates a field with changeable color) ** +--List (creates a line-oriented list) ** ! +--Floattext (special list with floating text) ** ! +--Volumelist (special list with volumes) ** ! +--Scrmodelist (special list with screen modes) ** ! \--Dirlist (special list with files) ** +--Numeric (base class for slider gadgets) ** ! +--Knob (creates knobs) ** ! +--Levelmeter (creates a level display) ** ! +--Numericbutton (creates space saving popup sliders) ** ! \--Slider (creates slider gadgets) ** +--Framedisplay (displays a frame specification) ** ! \--Popframe (popup button to adjust a frame) ** +--Imagedisplay (displays an image specification) ** ! \--Popimage (popup button to adjust an image spec) ** +--Pendisplay (displays a pen specification) ** ! \--Poppen (popup button to adjust a pen spec) ** +--Group (groups other GUI elements) ** +--Mccprefs (base class for extern custom class preferences classes) ** +--Register (handles page groups with titles) ** +--Settingsgroup (Creates GUI elements to adjust MUIs preferences) ** +--Settings (Creates prefs) ** +--Frameadjust (creates an object to adjust a frame) ** +--Penadjust (creates a group to adjust a pen) ** +--Imageadjust (creates a group to adjust an image) ** +--Virtgroup (handles virtual groups) ** +--Scrollgroup (handles virtual groups with scrollers) ** +--Scrollbar (creates a scrollbar) ** +--Listview (creates a listview) ** +--Radio (creates radio buttons) ** +--Cycle (creates cycle gadgets) ** +--Coloradjust (creates some RGB sliders) ** +--Palette (creates a complete palette gadget) ** +--Popstring (base class for popups) ** +--Popobject (popup a MUI object in a window) ** ! +--Poplist (popup a simple listview) ** ! \--Popscreen (popup a list of public screens) ** \--Popasl (popup an asl requester) ** **************************************************************************** ** General Header File Information **************************************************************************** ** ** All macro and structure definitions follow these rules: ** ** Name Meaning ** ** c<Class> Name of a class ** m<Class><Method> Method ** p<Class><Method> Methods parameter structure ** v<Class><Method><X> Special method value ** a<Class><Attrib> Attribute ** v<Class><Attrib><X> Special attribute value ** e<Error> Error return code from Error() ** i<Name> Standard MUI image ** x<Code> Control codes for text strings ** o<Name> Object type for MakeObject() ** ** a<> ... attribute definitions are followed by a comment ** consisting of the three possible letters I, S and G. ** I: it's possible to specify this attribute at object creation time. ** S: it's possible to change this attribute with SetAttrs(). ** G: it's possible to get this attribute with GetAttr(). ** ** Items marked with "Custom Class" are for use in custom classes only! *) CONST name* = "muimaster.library"; libVersion* = 12; minVersion* = 10; TYPE Object * = Intuition.ObjectPtr; (* <*IF OberonA THEN*> $IF OberonA *) dispatcher *= PROCEDURE ():Exec.APTR; (* <* ELSE *> $ELSE *) TYPE dispatcher *= PROCEDURE ( class{8} : Intuition.IClassPtr; obj{10} : Object; message{9} : Intuition.MsgPtr ):Exec.APTR; (* <*END*> $END *) (************************************************************************* ** Config items for MUIM_Application_SetConfigItem *************************************************************************) CONST ciPublicScreen *= 1; (************************************************************************* ** Config items for MUIM_GetConfigItem *************************************************************************) CONST cfgNone *= 0; cfgFirst *= 1; cfgSpacingWindowLeft *= 1; cfgSpacingWindowRight *= 2; cfgSpacingWindowBottom *= 3; cfgSpacingWindowTop *= 4; cfgSpacingHRadio *= 5; cfgSpacingVRadio *= 6; cfgGroupSpacingHoriz *= 7; cfgGroupSpacingVert *= 8; cfgScrollbarType *= 9; cfgListRefreshType *= 10; cfgListviewStretch *= 11; cfgListviewSmooth *= 12; cfgMultiSelType *= 13; cfgFrameType *= 14; cfgGroupTitlePos *= 15; cfgGroupTitleColor *= 16; cfgMinPop *= 17; cfgPopPosition *= 18; cfgIconifyGadget *= 19; cfgIconifyIcon *= 20; cfgDummyWasStartIconified *= 21; cfgRegisterLevel *= 22; cfgRegisterMax *= 23; cfgDragFrame *= 24; cfgPopupRecessed *= 25; cfgPopupSpeed *= 26; cfgListPixelType *= 27; cfgRefreshType *= 28; cfgRedrawType *= 29; cfgNormalFont *= 30; cfgListFont *= 31; cfgTinyFont *= 32; cfgFixedFont *= 33; cfgTitleFont *= 34; cfgBigFont *= 35; cfgPublicScreen *= 36; cfgIconifyX *= 37; cfgIconifyY *= 38; cfgShutdownCommand *= 39; cfgStartupCommand *= 40; cfgHotkey *= 41; cfgFramesNone *= 42; cfgFramesButton *= 43; cfgFramesImageButton *= 44; cfgFramesText *= 45; cfgFramesString *= 46; cfgFramesReadList *= 47; cfgFramesInputList *= 48; cfgFramesProp *= 49; cfgFramesGauge *= 50; cfgFramesGroup *= 51; cfgFramesPopUp *= 52; cfgFramesVirtual *= 53; cfgFramesSlider *= 54; cfgImagesWindowBack *= 55; cfgImagesRequesterBack *= 56; cfgImagesButtonBack *= 57; cfgImagesListBack *= 58; cfgImagesTextBack *= 59; cfgImagesPropBack *= 60; cfgImagesPopupBack *= 61; cfgImagesSelectedBack *= 62; cfgImagesListCursor *= 63; cfgImagesListSelect *= 64; cfgImagesListSelCur *= 65; cfgImagesArrowUp *= 66; cfgImagesArrowDown *= 67; cfgImagesArrowLeft *= 68; cfgImagesArrowRight *= 69; cfgImagesCheckMark *= 70; cfgImagesRadioButton *= 71; cfgImagesCycle *= 72; cfgImagesPopUp *= 73; cfgImagesPopFile *= 74; cfgImagesPopDrawer *= 75; cfgImagesPropKnob *= 76; cfgImagesDrawer *= 77; cfgImagesHardDisk *= 78; cfgImagesDisk *= 79; cfgImagesChip *= 80; cfgImagesVolume *= 81; cfgImagesNetwork *= 82; cfgImagesAssign *= 83; cfgDummyWasPopUpBack *= 84; cfgImagesTapePlay *= 85; cfgImagesTapePlayBack *= 86; cfgImagesTapePause *= 87; cfgImagesTapeStop *= 88; cfgImagesTapeRecord *= 89; cfgImagesGroupBack *= 90; cfgImagesSliderBack *= 91; cfgImagesSliderKnob *= 92; cfgImagesTapeUp *= 93; cfgImagesTapeDown *= 94; cfgKeysPRESS *= 95; cfgKeysTOGGLE *= 96; cfgKeysUP *= 97; cfgKeysDOWN *= 98; cfgKeysPAGEUP *= 99; cfgKeysPAGEDOWN *= 100; cfgKeysTOP *= 101; cfgKeysBOTTOM *= 102; cfgKeysLEFT *= 103; cfgKeysRIGHT *= 104; cfgKeysWORDLEFT *= 105; cfgKeysWORDRIGHT *= 106; cfgKeysLINESTART *= 107; cfgKeysLINEEND *= 108; cfgKeysGADGETNEXT *= 109; cfgKeysGADGETPREV *= 110; cfgKeysGADGETOFF *= 111; cfgKeysWINDOWCLOSE *= 112; cfgKeysWINDOWNEXT *= 113; cfgKeysWINDOWPREV *= 114; cfgKeysHELP *= 115; cfgKeysPOPUP *= 116; cfgJumpGadget *= 117; cfgSnapshotGadget *= 118; cfgPrefsGadget *= 119; cfgPopupGadget *= 120; cfgDummyWasHelpGadget *= 121; cfgOnExitWindows *= 122; cfgDummyWasPrefsGroupActive *= 123; cfgPopScreen *= 124; cfgIconifyMenu *= 125; cfgUseRexx *= 126; cfgUseCommodities *= 127; cfgButtonFont *= 128; cfgFirstBubbleDelay *= 129; cfgNextBubbleDelay *= 130; cfgPropType *= 131; cfgStringBack *= 132; cfgStringColor *= 133; cfgStringActiveBack *= 134; cfgStringActiveColor *= 135; cfgSliderFont *= 136; cfgDragLMB *= 137; cfgDragMMB *= 138; cfgDragQualiLMB *= 139; cfgDragQualiMMB *= 140; cfgDragAuto *= 141; cfgDragAutoPixel *= 142; cfgActiveObjectPen *= 143; cfgPopLMB *= 144; cfgPopMMB *= 145; cfgPopQualiLMB *= 146; cfgPopQualiMMB *= 147; cfgLast *= 147; cfgCount *= cfgLast - cfgFirst + 1; (************************************************************************* ** Specification structures for images, pens, frames *************************************************************************) TYPE (* <*IF OberonA THEN*> $IF OberonA *) PenSpec *= RECORD [2]; (* <* ELSE *> $ELSE *) PenSpec *= STRUCT (* <*END*> $END *) buf : ARRAY 32 OF SYSTEM.BYTE; END; (* <*IF OberonA THEN*> $IF OberonA *) ImageSpec *= RECORD [2] (* <* ELSE *> $ELSE *) ImageSpec *= STRUCT (* <*END*> $END *) buf : ARRAY 64 OF SYSTEM.BYTE; END; (* <*IF OberonA THEN*> $IF OberonA *) FrameSpec *= RECORD [2]; (* <* ELSE *> $ELSE *) FrameSpec *= STRUCT (* <*END*> $END *) buf : ARRAY 8 OF SYSTEM.BYTE; END; (*************************************************************************** ** Object Types for MakeObject() ***************************************************************************) CONST oLabel *= 1; (* STRPTR label, ULONG flags *) oButton *= 2; (* STRPTR label *) oCheckmark *= 3; (* STRPTR label *) oCycle *= 4; (* STRPTR label, STRPTR *entries *) oRadio *= 5; (* STRPTR label, STRPTR *entries *) oSlider *= 6; (* STRPTR label, LONG min, LONG max *) oString *= 7; (* STRPTR label, LONG maxlen *) oPopButton *= 8; (* STRPTR imagespec *) oHSpace *= 9; (* LONG space *) oVSpace *=10; (* LONG space *) oHBar *=11; (* LONG space *) oVBar *=12; (* LONG space *) oMenustripNM *=13; (* struct NewMenu *nm, ULONG flags *) oMenuitem *=14; (* STRPTR label, STRPTR shortcut, ULONG flags, ULONG data *) oBarTitle *=15; (* STRPTR label *) oNumericButton *=16; (* STRPTR label, LONG min, LONG max, STRPTR format *) CONST oLabelSingleFrame *= 00100H; oLabelDoubleFrame *= 00200H; oLabelLeftAligned *= 00400H; oLabelCentered *= 00800H; oLabelFreeVert *= 01000H; oMenustripNMCommandKeyCheck *= 00001H; (*************************************************************************** ** ARexx Interface ***************************************************************************) TYPE (* <*IF OberonA THEN*> $IF OberonA *) Command * = RECORD [2] (* <* ELSE *> $ELSE *) Command * = STRUCT (* <*END*> $END *) name * : Exec.STRPTR; template * : Exec.STRPTR; parameters * : LONGINT; hook * : Utility.HookPtr; reserved * : ARRAY 5 OF LONGINT; END; CONST templateID * = SYSTEM.VAL(Exec.STRPTR,-1); rxerrBADDEFINITION *= -1; rxerrOUTOFMEMORY *= -2; rxerrUNKNOWNCOMMAND *= -3; rxerrBADSYNTAX *= -4; (*************************************************************************** ** Return values for Error() ***************************************************************************) CONST eOK * = 0; eOutOfMemory * = 1; eOutOfGfxMemory * = 2; eInvalidWindowObject * = 3; eMissingLibrary * = 4; eNoARexx * = 5; eSingleTask * = 6; (*************************************************************************** ** Standard MUI Images ***************************************************************************) CONST iWindowBack * = 0; (* These images are configured *) iRequesterBack * = 1; (* with the preferences program. *) iButtonBack * = 2; iListBack * = 3; iTextBack * = 4; iPropBack * = 5; iPopupBack * = 6; iSelectedBack * = 7; iListCursor * = 8; iListSelect * = 9; iListSelCur * = 10; iArrowUp * = 11; iArrowDown * = 12; iArrowLeft * = 13; iArrowRight * = 14; iCheckMark * = 15; iRadioButton * = 16; iCycle * = 17; iPopUp * = 18; iPopFile * = 19; iPopDrawer * = 20; iPropKnob * = 21; iDrawer * = 22; iHardDisk * = 23; iDisk * = 24; iChip * = 25; iVolume * = 26; iPopUpBack * = 27; iNetwork * = 28; iAssign * = 29; iTapePlay * = 30; iTapePlayBack * = 31; iTapePause * = 32; iTapeStop * = 33; iTapeRecord * = 34; iGroupBack * = 35; iSliderBack * = 36; iSliderKnob * = 37; iTapeUp * = 38; iTapeDown * = 39; iCount * = 40; iBACKGROUND * = 128 (* These are direct color *); iSHADOW * = 129 (* combinations and are not *); iSHINE * = 130 (* affected by users prefs. *); iFILL * = 131; iSHADOWBACK * = 132 (* Generally, you should *); iSHADOWFILL * = 133 (* avoid using them. Better *); iSHADOWSHINE * = 134 (* use one of the customized *); iFILLBACK * = 135 (* images above. *); iFILLSHINE * = 136; iSHINEBACK * = 137; iFILLBACK2 * = 138; iHSHINEBACK * = 139; iHSHADOWBACK * = 140; iHSHINESHINE * = 141; iHSHADOWSHADOW * = 142; iLASTPAT * = 142; (*************************************************************************** ** Special values for some methods ***************************************************************************) CONST vTriggerValue *= 49893131H; vNotTriggerValue *= 49893133H; vEveryTime *= 49893131H; vNotifySelf *= 1; vNotifyWindow *= 2; vNotifyApplication *= 3; vApplicationSaveENV * = 0; vApplicationSaveENVARC * = -1; vApplicationLoadENV * = 0; vApplicationLoadENVARC * = -1; vApplicationReturnIDQuit * = -1; vListInsertTop * = 0; vListInsertActive * = -1; vListInsertSorted * = -2; vListInsertBottom * = -3; vListRemoveFirst * = 0; vListRemoveActive * = -1; vListRemoveLast * = -2; vListRemoveSelected * = -3; vListSelectOff * = 0; vListSelectOn * = 1; vListSelectToggle * = 2; vListSelectAsk * = 3; vListGetEntryActive * = -1; vListSelectActive * = -1; vListSelectAll * = -2; vListRedrawActive * = -1; vListRedrawAll * = -2; vListMoveTop * = 0; vListMoveActive * = -1; vListMoveBottom * = -2; vListMoveNext * = -3; (* only valid for second parameter *) vListMovePrevious * = -4; (* only valid for second parameter *) vListExchangeTop * = 0; vListExchangeActive * = -1; vListExchangeBottom * = -2; vListExchangeNext * = -3; (* only valid for second parameter *) vListExchangePrevious * = -4; (* only valid for second parameter *) vListJumpTop * = 0; vListJumpActive * = -1; vListJumpBottom * = 2; vColorpanelGetColorActive *= -1; vColorpanelSetColorActive *= -1; vListNextSelectedStart * = -1; vListNextSelectedEnd * = -1; (*************************************************************************** ** Control codes for text strings ***************************************************************************) CONST xR *= "\033r"; (* right justified *) xC *= "\033c"; (* centered *) xL *= "\033l"; (* left justified *) xN *= "\033n"; (* normal *) xB *= "\033b"; (* bold *) xI *= "\033i"; (* italic *) xU *= "\033u"; (* underlined *) xPT *= "\0332"; (* text pen *) xPH *= "\0338"; (* highlight text pen *) CONST (*******************************************) (* Begin of automatic header file creation *) (*******************************************) (****************************************************************************) (** Notify **) (****************************************************************************) cNotify * = "Notify.mui"; (* Methods *) CONST mCallHook * = 8042B96BH; (* V4 *) CONST mFindUData * = 8042C196H; (* V8 *) CONST mGetUData * = 8042ED0CH; (* V8 *) CONST mKillNotify * = 8042D240H; (* V4 *) CONST mMultiSet * = 8042D356H; (* V7 *) CONST mNoNotifySet * = 8042216FH; (* V9 *) CONST mNotify * = 8042C9CBH; (* V4 *) CONST mSet * = 8042549AH; (* V4 *) CONST mSetAsString * = 80422590H; (* V4 *) CONST mSetUData * = 8042C920H; (* V8 *) CONST mSetUDataOnce * = 8042CA19H; (* V11 *) CONST mWriteLong * = 80428D86H; (* V6 *) CONST mWriteString * = 80424BF4H; (* V6 *) (* Attributes *) CONST aApplicationObject * = 8042D3EEH; (* V4 ..g Object * *) CONST aAppMessage * = 80421955H; (* V5 ..g struct AppMessage * *) CONST aHelpLine * = 8042A825H; (* V4 isg LONG *) CONST aHelpNode * = 80420B85H; (* V4 isg STRPTR *) CONST aNoNotify * = 804237F9H; (* V7 .s. BOOL *) CONST aParent * = 8042E35FH; (* V11 ..g Object * *) CONST aRevision * = 80427EAAH; (* V4 ..g LONG *) CONST aUserData * = 80420313H; (* V4 isg ULONG *) CONST aVersion * = 80422301H; (* V4 ..g LONG *) (****************************************************************************) (** Family **) (****************************************************************************) cFamily * = "Family.mui"; (* Methods *) CONST mFamilyAddHead * = 8042E200H; (* V8 *) CONST mFamilyAddTail * = 8042D752H; (* V8 *) CONST mFamilyInsert * = 80424D34H; (* V8 *) CONST mFamilyRemove * = 8042F8A9H; (* V8 *) CONST mFamilySort * = 80421C49H; (* V8 *) CONST mFamilyTransfer * = 8042C14AH; (* V8 *) (* Attributes *) CONST aFamilyChild * = 8042C696H; (* V8 i.. Object * *) CONST aFamilyList * = 80424B9EH; (* V8 ..g struct MinList * *) (****************************************************************************) (** Menustrip **) (****************************************************************************) cMenustrip * = "Menustrip.mui"; (* Methods *) (* Attributes *) CONST aMenustripEnabled * = 8042815BH; (* V8 isg BOOL *) (****************************************************************************) (** Menu **) (****************************************************************************) cMenu * = "Menu.mui"; (* Methods *) (* Attributes *) CONST aMenuEnabled * = 8042ED48H; (* V8 isg BOOL *) CONST aMenuTitle * = 8042A0E3H; (* V8 isg STRPTR *) (****************************************************************************) (** Menuitem **) (****************************************************************************) cMenuitem * = "Menuitem.mui"; (* Methods *) (* Attributes *) CONST aMenuitemChecked * = 8042562AH; (* V8 isg BOOL *) CONST aMenuitemCheckit * = 80425ACEH; (* V8 isg BOOL *) CONST aMenuitemEnabled * = 8042AE0FH; (* V8 isg BOOL *) CONST aMenuitemExclude * = 80420BC6H; (* V8 isg LONG *) CONST aMenuitemShortcut * = 80422030H; (* V8 isg STRPTR *) CONST aMenuitemTitle * = 804218BEH; (* V8 isg STRPTR *) CONST aMenuitemToggle * = 80424D5CH; (* V8 isg BOOL *) CONST aMenuitemTrigger * = 80426F32H; (* V8 ..g struct MenuItem * *) CONST vMenuitemShortcutCheck * = SYSTEM.VAL(Exec.LSTRPTR,-1); (****************************************************************************) (** Application **) (****************************************************************************) cApplication * = "Application.mui"; (* Methods *) CONST mApplicationAddInputHandler * = 8042F099H; (* V11 *) CONST mApplicationCheckRefresh * = 80424D68H; (* V11 *) CONST mApplicationGetMenuCheck * = 8042C0A7H; (* V4 *) CONST mApplicationGetMenuState * = 8042A58FH; (* V4 *) CONST mApplicationInput * = 8042D0F5H; (* V4 *) CONST mApplicationInputBuffered * = 80427E59H; (* V4 *) CONST mApplicationLoad * = 8042F90DH; (* V4 *) CONST mApplicationNewInput * = 80423BA6H; (* V11 *) CONST mApplicationOpenConfigWindow * = 804299BAH; (* V11 *) CONST mApplicationPushMethod * = 80429EF8H; (* V4 *) CONST mApplicationRemInputHandler * = 8042E7AFH; (* V11 *) CONST mApplicationReturnID * = 804276EFH; (* V4 *) CONST mApplicationSave * = 804227EFH; (* V4 *) CONST mApplicationSetConfigItem * = 80424A80H; (* V11 *) CONST mApplicationSetMenuCheck * = 8042A707H; (* V4 *) CONST mApplicationSetMenuState * = 80428BEFH; (* V4 *) CONST mApplicationShowHelp * = 80426479H; (* V4 *) (* Attributes *) CONST aApplicationActive * = 804260ABH; (* V4 isg BOOL *) CONST aApplicationAuthor * = 80424842H; (* V4 i.g STRPTR *) CONST aApplicationBase * = 8042E07AH; (* V4 i.g STRPTR *) CONST aApplicationBroker * = 8042DBCEH; (* V4 ..g Broker * *) CONST aApplicationBrokerHook * = 80428F4BH; (* V4 isg struct Hook * *) CONST aApplicationBrokerPort * = 8042E0ADH; (* V6 ..g struct MsgPort * *) CONST aApplicationBrokerPri * = 8042C8D0H; (* V6 i.g LONG *) CONST aApplicationCommands * = 80428648H; (* V4 isg struct MUI_Command * *) CONST aApplicationCopyright * = 8042EF4DH; (* V4 i.g STRPTR *) CONST aApplicationDescription * = 80421FC6H; (* V4 i.g STRPTR *) CONST aApplicationDiskObject * = 804235CBH; (* V4 isg struct DiskObject * *) CONST aApplicationDoubleStart * = 80423BC6H; (* V4 ..g BOOL *) CONST aApplicationDropObject * = 80421266H; (* V5 is. Object * *) CONST aApplicationForceQuit * = 804257DFH; (* V8 ..g BOOL *) CONST aApplicationHelpFile * = 804293F4H; (* V8 isg STRPTR *) CONST aApplicationIconified * = 8042A07FH; (* V4 .sg BOOL *) CONST aApplicationMenu * = 80420E1FH; (* V4 i.g struct NewMenu * *) CONST aApplicationMenuAction * = 80428961H; (* V4 ..g ULONG *) CONST aApplicationMenuHelp * = 8042540BH; (* V4 ..g ULONG *) CONST aApplicationMenustrip * = 804252D9H; (* V8 i.. Object * *) CONST aApplicationRexxHook * = 80427C42H; (* V7 isg struct Hook * *) CONST aApplicationRexxMsg * = 8042FD88H; (* V4 ..g struct RxMsg * *) CONST aApplicationRexxString * = 8042D711H; (* V4 .s. STRPTR *) CONST aApplicationSingleTask * = 8042A2C8H; (* V4 i.. BOOL *) CONST aApplicationSleep * = 80425711H; (* V4 .s. BOOL *) CONST aApplicationTitle * = 804281B8H; (* V4 i.g STRPTR *) CONST aApplicationUseCommodities * = 80425EE5H; (* V10 i.. BOOL *) CONST aApplicationUseRexx * = 80422387H; (* V10 i.. BOOL *) CONST aApplicationVersion * = 8042B33FH; (* V4 i.g STRPTR *) CONST aApplicationWindow * = 8042BFE0H; (* V4 i.. Object * *) (****************************************************************************) (** Window **) (****************************************************************************) cWindow * = "Window.mui"; (* Methods *) CONST mWindowGetMenuCheck * = 80420414H; (* V4 *) CONST mWindowGetMenuState * = 80420D2FH; (* V4 *) CONST mWindowScreenToBack * = 8042913DH; (* V4 *) CONST mWindowScreenToFront * = 804227A4H; (* V4 *) CONST mWindowSetCycleChain * = 80426510H; (* V4 *) CONST mWindowSetMenuCheck * = 80422243H; (* V4 *) CONST mWindowSetMenuState * = 80422B5EH; (* V4 *) CONST mWindowToBack * = 8042152EH; (* V4 *) CONST mWindowToFront * = 8042554FH; (* V4 *) (* Attributes *) CONST aWindowActivate * = 80428D2FH; (* V4 isg BOOL *) CONST aWindowActiveObject * = 80427925H; (* V4 .sg Object * *) CONST aWindowAltHeight * = 8042CCE3H; (* V4 i.g LONG *) CONST aWindowAltLeftEdge * = 80422D65H; (* V4 i.g LONG *) CONST aWindowAltTopEdge * = 8042E99BH; (* V4 i.g LONG *) CONST aWindowAltWidth * = 804260F4H; (* V4 i.g LONG *) CONST aWindowAppWindow * = 804280CFH; (* V5 i.. BOOL *) CONST aWindowBackdrop * = 8042C0BBH; (* V4 i.. BOOL *) CONST aWindowBorderless * = 80429B79H; (* V4 i.. BOOL *) CONST aWindowCloseGadget * = 8042A110H; (* V4 i.. BOOL *) CONST aWindowCloseRequest * = 8042E86EH; (* V4 ..g BOOL *) CONST aWindowDefaultObject * = 804294D7H; (* V4 isg Object * *) CONST aWindowDepthGadget * = 80421923H; (* V4 i.. BOOL *) CONST aWindowDragBar * = 8042045DH; (* V4 i.. BOOL *) CONST aWindowFancyDrawing * = 8042BD0EH; (* V8 isg BOOL *) CONST aWindowHeight * = 80425846H; (* V4 i.g LONG *) CONST aWindowID * = 804201BDH; (* V4 isg ULONG *) CONST aWindowInputEvent * = 804247D8H; (* V4 ..g struct InputEvent * *) CONST aWindowLeftEdge * = 80426C65H; (* V4 i.g LONG *) CONST aWindowMenu * = 8042DB94H; (* V4 i.. struct NewMenu * *) CONST aWindowMenuAction * = 80427521H; (* V8 isg ULONG *) CONST aWindowMenustrip * = 8042855EH; (* V8 i.g Object * *) CONST aWindowMouseObject * = 8042BF9BH; (* V10 ..g Object * *) CONST aWindowNeedsMouseObject * = 8042372AH; (* V10 i.. BOOL *) CONST aWindowNoMenus * = 80429DF5H; (* V4 is. BOOL *) CONST aWindowOpen * = 80428AA0H; (* V4 .sg BOOL *) CONST aWindowPublicScreen * = 804278E4H; (* V6 isg STRPTR *) CONST aWindowRefWindow * = 804201F4H; (* V4 is. Object * *) CONST aWindowRootObject * = 8042CBA5H; (* V4 isg Object * *) CONST aWindowScreen * = 8042DF4FH; (* V4 isg struct Screen * *) CONST aWindowScreenTitle * = 804234B0H; (* V5 isg STRPTR *) CONST aWindowSizeGadget * = 8042E33DH; (* V4 i.. BOOL *) CONST aWindowSizeRight * = 80424780H; (* V4 i.. BOOL *) CONST aWindowSleep * = 8042E7DBH; (* V4 .sg BOOL *) CONST aWindowTitle * = 8042AD3DH; (* V4 isg STRPTR *) CONST aWindowTopEdge * = 80427C66H; (* V4 i.g LONG *) CONST aWindowWidth * = 8042DCAEH; (* V4 i.g LONG *) CONST aWindowWindow * = 80426A42H; (* V4 ..g struct Window * *) CONST vWindowActiveObjectNone * = 0; CONST vWindowActiveObjectNext * = -1; CONST vWindowActiveObjectPrev * = -2; CONST vWindowAltHeightScaled * = -1000; CONST vWindowAltLeftEdgeCentered * = -1; CONST vWindowAltLeftEdgeMoused * = -2; CONST vWindowAltLeftEdgeNoChange * = -1000; CONST vWindowAltTopEdgeCentered * = -1; CONST vWindowAltTopEdgeMoused * = -2; CONST vWindowAltTopEdgeNoChange * = -1000; CONST vWindowAltWidthScaled * = -1000; CONST vWindowHeightScaled * = -1000; CONST vWindowHeightDefault * = -1001; CONST vWindowLeftEdgeCentered * = -1; CONST vWindowLeftEdgeMoused * = -2; CONST vWindowMenuNoMenu * = -1; CONST vWindowTopEdgeCentered * = -1; CONST vWindowTopEdgeMoused * = -2; CONST vWindowWidthScaled * = -1000; CONST vWindowWidthDefault * = -1001; (****************************************************************************) (** Aboutmui **) (****************************************************************************) cAboutmui * = "Aboutmui.mui"; (* Methods *) (* Attributes *) CONST aAboutmuiApplication * = 80422523H; (* V11 i.. Object * *) (****************************************************************************) (** Area **) (****************************************************************************) cArea * = "Area.mui"; (* Methods *) CONST mAskMinMax * = 80423874H; (* V4 *) CONST mCleanup * = 8042D985H; (* V4 *) CONST mContextMenuBuild * = 80429D2EH; (* V11 *) CONST mContextMenuChoice * = 80420F0EH; (* V11 *) CONST mDragBegin * = 8042C03AH; (* V11 *) CONST mDragDrop * = 8042C555H; (* V11 *) CONST mDragFinish * = 804251F0H; (* V11 *) CONST mDragQuery * = 80420261H; (* V11 *) CONST mDragReport * = 8042EDADH; (* V11 *) CONST mDraw * = 80426F3FH; (* V4 *) CONST mHandleInput * = 80422A1AH; (* V4 *) CONST mHide * = 8042F20FH; (* V4 *) CONST mSetup * = 80428354H; (* V4 *) CONST mShow * = 8042CC84H; (* V4 *) (* Attributes *) CONST aBackground * = 8042545BH; (* V4 is. LONG *) CONST aBottomEdge * = 8042E552H; (* V4 ..g LONG *) CONST aContextMenu * = 8042B704H; (* V11 isg Object * *) CONST aContextMenuTrigger * = 8042A2C1H; (* V11 ..g Object * *) CONST aControlChar * = 8042120BH; (* V4 isg char *) CONST aCycleChain * = 80421CE7H; (* V11 isg LONG *) CONST aDisabled * = 80423661H; (* V4 isg BOOL *) CONST aDraggable * = 80420B6EH; (* V11 isg BOOL *) CONST aDropable * = 8042FBCEH; (* V11 isg BOOL *) CONST aExportID * = 8042D76EH; (* V4 isg ULONG *) CONST aFixHeight * = 8042A92BH; (* V4 i.. LONG *) CONST aFixHeightTxt * = 804276F2H; (* V4 i.. STRPTR *) CONST aFixWidth * = 8042A3F1H; (* V4 i.. LONG *) CONST aFixWidthTxt * = 8042D044H; (* V4 i.. STRPTR *) CONST aFont * = 8042BE50H; (* V4 i.g struct TextFont * *) CONST aFrame * = 8042AC64H; (* V4 i.. LONG *) CONST aFramePhantomHoriz * = 8042ED76H; (* V4 i.. BOOL *) CONST aFrameTitle * = 8042D1C7H; (* V4 i.. STRPTR *) CONST aHeight * = 80423237H; (* V4 ..g LONG *) CONST aHorizDisappear * = 80429615H; (* V11 isg LONG *) CONST aHorizWeight * = 80426DB9H; (* V4 i.. WORD *) CONST aInnerBottom * = 8042F2C0H; (* V4 i.. LONG *) CONST aInnerLeft * = 804228F8H; (* V4 i.. LONG *) CONST aInnerRight * = 804297FFH; (* V4 i.. LONG *) CONST aInnerTop * = 80421EB6H; (* V4 i.. LONG *) CONST aInputMode * = 8042FB04H; (* V4 i.. LONG *) CONST aLeftEdge * = 8042BEC6H; (* V4 ..g LONG *) CONST aMaxHeight * = 804293E4H; (* V11 i.. LONG *) CONST aMaxWidth * = 8042F112H; (* V11 i.. LONG *) CONST aObjectID * = 8042D76EH; (* V11 isg ULONG *) CONST aPressed * = 80423535H; (* V4 ..g BOOL *) CONST aRightEdge * = 8042BA82H; (* V4 ..g LONG *) CONST aSelected * = 8042654BH; (* V4 isg BOOL *) CONST aShortHelp * = 80428FE3H; (* V11 isg STRPTR *) CONST aShowMe * = 80429BA8H; (* V4 isg BOOL *) CONST aShowSelState * = 8042CAACH; (* V4 i.. BOOL *) CONST aTimer * = 80426435H; (* V4 ..g LONG *) CONST aTopEdge * = 8042509BH; (* V4 ..g LONG *) CONST aVertDisappear * = 8042D12FH; (* V11 isg LONG *) CONST aVertWeight * = 804298D0H; (* V4 i.. WORD *) CONST aWeight * = 80421D1FH; (* V4 i.. WORD *) CONST aWidth * = 8042B59CH; (* V4 ..g LONG *) CONST aWindow * = 80421591H; (* V4 ..g struct Window * *) CONST aWindowObject * = 8042669EH; (* V4 ..g Object * *) CONST vFontInherit * = 0; CONST vFontNormal * = -1; CONST vFontList * = -2; CONST vFontTiny * = -3; CONST vFontFixed * = -4; CONST vFontTitle * = -5; CONST vFontBig * = -6; CONST vFontButton * = -7; CONST vFrameNone * = 0; CONST vFrameButton * = 1; CONST vFrameImageButton * = 2; CONST vFrameText * = 3; CONST vFrameString * = 4; CONST vFrameReadList * = 5; CONST vFrameInputList * = 6; CONST vFrameProp * = 7; CONST vFrameGauge * = 8; CONST vFrameGroup * = 9; CONST vFramePopUp * = 10; CONST vFrameVirtual * = 11; CONST vFrameSlider * = 12; CONST vFrameCount * = 13; CONST vInputModeNone * = 0; CONST vInputModeRelVerify * = 1; CONST vInputModeImmediate * = 2; CONST vInputModeToggle * = 3; (****************************************************************************) (** Rectangle **) (****************************************************************************) cRectangle * = "Rectangle.mui"; (* Attributes *) CONST aRectangleBarTitle * = 80426689H; (* V11 i.g STRPTR *) CONST aRectangleHBar * = 8042C943H; (* V7 i.g BOOL *) CONST aRectangleVBar * = 80422204H; (* V7 i.g BOOL *) (****************************************************************************) (** Balance **) (****************************************************************************) cBalance * = "Balance.mui"; (****************************************************************************) (** Image **) (****************************************************************************) cImage * = "Image.mui"; (* Attributes *) CONST aImageFontMatch * = 8042815DH; (* V4 i.. BOOL *) CONST aImageFontMatchHeight * = 80429F26H; (* V4 i.. BOOL *) CONST aImageFontMatchWidth * = 804239BFH; (* V4 i.. BOOL *) CONST aImageFreeHoriz * = 8042DA84H; (* V4 i.. BOOL *) CONST aImageFreeVert * = 8042EA28H; (* V4 i.. BOOL *) CONST aImageOldImage * = 80424F3DH; (* V4 i.. struct Image * *) CONST aImageSpec * = 804233D5H; (* V4 i.. char * *) CONST aImageState * = 8042A3ADH; (* V4 is. LONG *) (****************************************************************************) (** Bitmap **) (****************************************************************************) cBitmap * = "Bitmap.mui"; (* Attributes *) CONST aBitmapBitmap * = 804279BDH; (* V8 isg struct BitMap * *) CONST aBitmapHeight * = 80421560H; (* V8 isg LONG *) CONST aBitmapMappingTable * = 8042E23DH; (* V8 isg UBYTE * *) CONST aBitmapPrecision * = 80420C74H; (* V11 isg LONG *) CONST aBitmapRemappedBitmap * = 80423A47H; (* V11 ..g struct BitMap * *) CONST aBitmapSourceColors * = 80425360H; (* V8 isg ULONG * *) CONST aBitmapTransparent * = 80422805H; (* V8 isg LONG *) CONST aBitmapUseFriend * = 804239D8H; (* V11 i.. BOOL *) CONST aBitmapWidth * = 8042EB3AH; (* V8 isg LONG *) (****************************************************************************) (** Bodychunk **) (****************************************************************************) cBodychunk * = "Bodychunk.mui"; (* Attributes *) CONST aBodychunkBody * = 8042CA67H; (* V8 isg UBYTE * *) CONST aBodychunkCompression * = 8042DE5FH; (* V8 isg UBYTE *) CONST aBodychunkDepth * = 8042C392H; (* V8 isg LONG *) CONST aBodychunkMasking * = 80423B0EH; (* V8 isg UBYTE *) (****************************************************************************) (** Text **) (****************************************************************************) cText * = "Text.mui"; (* Attributes *) CONST aTextContents * = 8042F8DCH; (* V4 isg STRPTR *) CONST aTextHiChar * = 804218FFH; (* V4 i.. char *) CONST aTextPreParse * = 8042566DH; (* V4 isg STRPTR *) CONST aTextSetMax * = 80424D0AH; (* V4 i.. BOOL *) CONST aTextSetMin * = 80424E10H; (* V4 i.. BOOL *) CONST aTextSetVMax * = 80420D8BH; (* V11 i.. BOOL *) (****************************************************************************) (** Gadget **) (****************************************************************************) cGadget * = "Gadget.mui"; (* Attributes *) (****************************************************************************) (** String **) (****************************************************************************) cString * = "String.mui"; (* Attributes *) CONST aStringAccept * = 8042E3E1H; (* V4 isg STRPTR *) CONST aStringAcknowledge * = 8042026CH; (* V4 ..g STRPTR *) CONST aStringAdvanceOnCR * = 804226DEH; (* V11 isg BOOL *) CONST aStringAttachedList * = 80420FD2H; (* V4 i.. Object * *) CONST aStringBufferPos * = 80428B6CH; (* V4 .s. LONG *) CONST aStringContents * = 80428FFDH; (* V4 isg STRPTR *) CONST aStringDisplayPos * = 8042CCBFH; (* V4 .s. LONG *) CONST aStringEditHook * = 80424C33H; (* V7 isg struct Hook * *) CONST aStringFormat * = 80427484H; (* V4 i.g LONG *) CONST aStringInteger * = 80426E8AH; (* V4 isg ULONG *) CONST aStringLonelyEditHook * = 80421569H; (* V11 isg BOOL *) CONST aStringMaxLen * = 80424984H; (* V4 i.g LONG *) CONST aStringReject * = 8042179CH; (* V4 isg STRPTR *) CONST aStringSecret * = 80428769H; (* V4 i.g BOOL *) CONST vStringFormatLeft * = 0; CONST vStringFormatCenter * = 1; CONST vStringFormatRight * = 2; (****************************************************************************) (** Boopsi **) (****************************************************************************) cBoopsi * = "Boopsi.mui"; (* Attributes *) CONST aBoopsiClass * = 80426999H; (* V4 isg struct IClass * *) CONST aBoopsiClassID * = 8042BFA3H; (* V4 isg char * *) CONST aBoopsiMaxHeight * = 8042757FH; (* V4 isg ULONG *) CONST aBoopsiMaxWidth * = 8042BCB1H; (* V4 isg ULONG *) CONST aBoopsiMinHeight * = 80422C93H; (* V4 isg ULONG *) CONST aBoopsiMinWidth * = 80428FB2H; (* V4 isg ULONG *) CONST aBoopsiObject * = 80420178H; (* V4 ..g Object * *) CONST aBoopsiRemember * = 8042F4BDH; (* V4 i.. ULONG *) CONST aBoopsiSmart * = 8042B8D7H; (* V9 i.. BOOL *) CONST aBoopsiTagDrawInfo * = 8042BAE7H; (* V4 isg ULONG *) CONST aBoopsiTagScreen * = 8042BC71H; (* V4 isg ULONG *) CONST aBoopsiTagWindow * = 8042E11DH; (* V4 isg ULONG *) (****************************************************************************) (** Prop **) (****************************************************************************) cProp * = "Prop.mui"; (* Attributes *) CONST aPropEntries * = 8042FBDBH; (* V4 isg LONG *) CONST aPropFirst * = 8042D4B2H; (* V4 isg LONG *) CONST aPropHoriz * = 8042F4F3H; (* V4 i.g BOOL *) CONST aPropSlider * = 80429C3AH; (* V4 isg BOOL *) CONST aPropVisible * = 8042FEA6H; (* V4 isg LONG *) (****************************************************************************) (** Gauge **) (****************************************************************************) cGauge * = "Gauge.mui"; (* Attributes *) CONST aGaugeCurrent * = 8042F0DDH; (* V4 isg LONG *) CONST aGaugeDivide * = 8042D8DFH; (* V4 isg BOOL *) CONST aGaugeHoriz * = 804232DDH; (* V4 i.. BOOL *) CONST aGaugeInfoText * = 8042BF15H; (* V7 isg STRPTR *) CONST aGaugeMax * = 8042BCDBH; (* V4 isg LONG *) (****************************************************************************) (** Scale **) (****************************************************************************) cScale * = "Scale.mui"; (* Attributes *) CONST aScaleHoriz * = 8042919AH; (* V4 isg BOOL *) (****************************************************************************) (** Colorfield **) (****************************************************************************) cColorfield * = "Colorfield.mui"; (* Attributes *) CONST aColorfieldBlue * = 8042D3B0H; (* V4 isg ULONG *) CONST aColorfieldGreen * = 80424466H; (* V4 isg ULONG *) CONST aColorfieldPen * = 8042713AH; (* V4 ..g ULONG *) CONST aColorfieldRed * = 804279F6H; (* V4 isg ULONG *) CONST aColorfieldRGB * = 8042677AH; (* V4 isg ULONG * *) (****************************************************************************) (** List **) (****************************************************************************) cList * = "List.mui"; (* Methods *) CONST mListClear * = 8042AD89H; (* V4 *) CONST mListCreateImage * = 80429804H; (* V11 *) CONST mListDeleteImage * = 80420F58H; (* V11 *) CONST mListExchange * = 8042468CH; (* V4 *) CONST mListGetEntry * = 804280ECH; (* V4 *) CONST mListInsert * = 80426C87H; (* V4 *) CONST mListInsertSingle * = 804254D5H; (* V7 *) CONST mListJump * = 8042BAABH; (* V4 *) CONST mListMove * = 804253C2H; (* V9 *) CONST mListNextSelected * = 80425F17H; (* V6 *) CONST mListRedraw * = 80427993H; (* V4 *) CONST mListRemove * = 8042647EH; (* V4 *) CONST mListSelect * = 804252D8H; (* V4 *) CONST mListSort * = 80422275H; (* V4 *) CONST mListTestPos * = 80425F48H; (* V11 *) (* Attributes *) CONST aListActive * = 8042391CH; (* V4 isg LONG *) CONST aListAdjustHeight * = 8042850DH; (* V4 i.. BOOL *) CONST aListAdjustWidth * = 8042354AH; (* V4 i.. BOOL *) CONST aListAutoVisible * = 8042A445H; (* V11 isg BOOL *) CONST aListCompareHook * = 80425C14H; (* V4 is. struct Hook * *) CONST aListConstructHook * = 8042894FH; (* V4 is. struct Hook * *) CONST aListDestructHook * = 804297CEH; (* V4 is. struct Hook * *) CONST aListDisplayHook * = 8042B4D5H; (* V4 is. struct Hook * *) CONST aListDragSortable * = 80426099H; (* V11 isg BOOL *) CONST aListDropMark * = 8042ABA6H; (* V11 ..g LONG *) CONST aListEntries * = 80421654H; (* V4 ..g LONG *) CONST aListFirst * = 804238D4H; (* V4 ..g LONG *) CONST aListFormat * = 80423C0AH; (* V4 isg STRPTR *) CONST aListInsertPosition * = 8042D0CDH; (* V9 ..g LONG *) CONST aListMinLineHeight * = 8042D1C3H; (* V4 i.. LONG *) CONST aListMultiTestHook * = 8042C2C6H; (* V4 is. struct Hook * *) CONST aListQuiet * = 8042D8C7H; (* V4 .s. BOOL *) CONST aListShowDropMarks * = 8042C6F3H; (* V11 isg BOOL *) CONST aListSourceArray * = 8042C0A0H; (* V4 i.. APTR *) CONST aListTitle * = 80423E66H; (* V6 isg char * *) CONST aListVisible * = 8042191FH; (* V4 ..g LONG *) CONST vListActiveOff * = -1; CONST vListActiveTop * = -2; CONST vListActiveBottom * = -3; CONST vListActiveUp * = -4; CONST vListActiveDown * = -5; CONST vListActivePageUp * = -6; CONST vListActivePageDown * = -7; CONST vListConstructHookString * = -1; CONST vListDestructHookString * = -1; (****************************************************************************) (** Floattext **) (****************************************************************************) cFloattext * = "Floattext.mui"; (* Attributes *) CONST aFloattextJustify * = 8042DC03H; (* V4 isg BOOL *) CONST aFloattextSkipChars * = 80425C7DH; (* V4 is. STRPTR *) CONST aFloattextTabSize * = 80427D17H; (* V4 is. LONG *) CONST aFloattextText * = 8042D16AH; (* V4 isg STRPTR *) (****************************************************************************) (** Volumelist **) (****************************************************************************) cVolumelist * = "Volumelist.mui"; (****************************************************************************) (** Scrmodelist **) (****************************************************************************) cScrmodelist * = "Scrmodelist.mui"; (* Attributes *) (****************************************************************************) (** Dirlist **) (****************************************************************************) cDirlist * = "Dirlist.mui"; (* Methods *) CONST mDirlistReRead * = 80422D71H; (* V4 *) (* Attributes *) CONST aDirlistAcceptPattern * = 8042760AH; (* V4 is. STRPTR *) CONST aDirlistDirectory * = 8042EA41H; (* V4 isg STRPTR *) CONST aDirlistDrawersOnly * = 8042B379H; (* V4 is. BOOL *) CONST aDirlistFilesOnly * = 8042896AH; (* V4 is. BOOL *) CONST aDirlistFilterDrawers * = 80424AD2H; (* V4 is. BOOL *) CONST aDirlistFilterHook * = 8042AE19H; (* V4 is. struct Hook * *) CONST aDirlistMultiSelDirs * = 80428653H; (* V6 is. BOOL *) CONST aDirlistNumBytes * = 80429E26H; (* V4 ..g LONG *) CONST aDirlistNumDrawers * = 80429CB8H; (* V4 ..g LONG *) CONST aDirlistNumFiles * = 8042A6F0H; (* V4 ..g LONG *) CONST aDirlistPath * = 80426176H; (* V4 ..g STRPTR *) CONST aDirlistRejectIcons * = 80424808H; (* V4 is. BOOL *) CONST aDirlistRejectPattern * = 804259C7H; (* V4 is. STRPTR *) CONST aDirlistSortDirs * = 8042BBB9H; (* V4 is. LONG *) CONST aDirlistSortHighLow * = 80421896H; (* V4 is. BOOL *) CONST aDirlistSortType * = 804228BCH; (* V4 is. LONG *) CONST aDirlistStatus * = 804240DEH; (* V4 ..g LONG *) CONST vDirlistSortDirsFirst * = 0; CONST vDirlistSortDirsLast * = 1; CONST vDirlistSortDirsMix * = 2; CONST vDirlistSortTypeName * = 0; CONST vDirlistSortTypeDate * = 1; CONST vDirlistSortTypeSize * = 2; CONST vDirlistStatusInvalid * = 0; CONST vDirlistStatusReading * = 1; CONST vDirlistStatusValid * = 2; (****************************************************************************) (** Numeric **) (****************************************************************************) cNumeric * = "Numeric.mui"; (* Methods *) CONST mNumericDecrease * = 804243A7H; (* V11 *) CONST mNumericIncrease * = 80426ECDH; (* V11 *) CONST mNumericScaleToValue * = 8042032CH; (* V11 *) CONST mNumericSetDefault * = 8042AB0AH; (* V11 *) CONST mNumericStringify * = 80424891H; (* V11 *) CONST mNumericValueToScale * = 80423E4FH; (* V11 *) (* Attributes *) CONST aNumericDefault * = 804263E8H; (* V11 isg LONG *) CONST aNumericFormat * = 804263E9H; (* V11 isg STRPTR *) CONST aNumericMax * = 8042D78AH; (* V11 isg LONG *) CONST aNumericMin * = 8042E404H; (* V11 isg LONG *) CONST aNumericReverse * = 8042F2A0H; (* V11 isg BOOL *) CONST aNumericRevLeftRight * = 804294A7H; (* V11 isg BOOL *) CONST aNumericRevUpDown * = 804252DDH; (* V11 isg BOOL *) CONST aNumericValue * = 8042AE3AH; (* V11 isg LONG *) (****************************************************************************) (** Framedisplay **) (****************************************************************************) cFramedisplay * = "Framedisplay.mui"; (* Attributes *) (****************************************************************************) (** Popframe **) (****************************************************************************) cPopframe * = "Popframe.mui"; (****************************************************************************) (** Imagedisplay **) (****************************************************************************) cImagedisplay * = "Imagedisplay.mui"; (* Attributes *) (****************************************************************************) (** Popimage **) (****************************************************************************) cPopimage * = "Popimage.mui"; (****************************************************************************) (** Pendisplay **) (****************************************************************************) cPendisplay * = "Pendisplay.mui"; (* Attributes *) CONST aPendisplayRGBcolor * = 8042A1A9H; (* V11 isg struct MUI_RBBcolor * *) CONST aPendisplaySpec * = 8042A204H; (* V11 isg struct MUI_PenSpec * *) (****************************************************************************) (** Poppen **) (****************************************************************************) cPoppen * = "Poppen.mui"; (****************************************************************************) (** Knob **) (****************************************************************************) cKnob * = "Knob.mui"; (****************************************************************************) (** Levelmeter **) (****************************************************************************) cLevelmeter * = "Levelmeter.mui"; (* Attributes *) CONST aLevelmeterLabel * = 80420DD5H; (* V11 isg STRPTR *) (****************************************************************************) (** Numericbutton **) (****************************************************************************) cNumericbutton * = "Numericbutton.mui"; (****************************************************************************) (** Slider **) (****************************************************************************) cSlider * = "Slider.mui"; (* Attributes *) CONST aSliderHoriz * = 8042FAD1H; (* V11 isg BOOL *) CONST aSliderLevel * = 8042AE3AH; (* V4 isg LONG *) CONST aSliderMax * = 8042D78AH; (* V4 isg LONG *) CONST aSliderMin * = 8042E404H; (* V4 isg LONG *) CONST aSliderQuiet * = 80420B26H; (* V6 i.. BOOL *) CONST aSliderReverse * = 8042F2A0H; (* V4 isg BOOL *) (****************************************************************************) (** Group **) (****************************************************************************) cGroup * = "Group.mui"; (* Methods *) CONST mGroupExitChange * = 8042D1CCH; (* V11 *) CONST mGroupInitChange * = 80420887H; (* V11 *) (* Attributes *) CONST aGroupActivePage * = 80424199H; (* V5 isg LONG *) CONST aGroupChild * = 804226E6H; (* V4 i.. Object * *) CONST aGroupChildList * = 80424748H; (* V4 ..g struct List * *) CONST aGroupColumns * = 8042F416H; (* V4 is. LONG *) CONST aGroupHoriz * = 8042536BH; (* V4 i.. BOOL *) CONST aGroupHorizSpacing * = 8042C651H; (* V4 is. LONG *) CONST aGroupLayoutHook * = 8042C3B2H; (* V11 i.. struct Hook * *) CONST aGroupPageMode * = 80421A5FH; (* V5 i.. BOOL *) CONST aGroupRows * = 8042B68FH; (* V4 is. LONG *) CONST aGroupSameHeight * = 8042037EH; (* V4 i.. BOOL *) CONST aGroupSameSize * = 80420860H; (* V4 i.. BOOL *) CONST aGroupSameWidth * = 8042B3ECH; (* V4 i.. BOOL *) CONST aGroupSpacing * = 8042866DH; (* V4 is. LONG *) CONST aGroupVertSpacing * = 8042E1BFH; (* V4 is. LONG *) CONST vGroupActivePageFirst * = 0; CONST vGroupActivePageLast * = -1; CONST vGroupActivePagePrev * = -2; CONST vGroupActivePageNext * = -3; (****************************************************************************) (** Mccprefs **) (****************************************************************************) cMccprefs * = "Mccprefs.mui"; (****************************************************************************) (** Register **) (****************************************************************************) cRegister * = "Register.mui"; (* Attributes *) CONST aRegisterFrame * = 8042349BH; (* V7 i.g BOOL *) CONST aRegisterTitles * = 804297ECH; (* V7 i.g STRPTR * *) (****************************************************************************) (** Settingsgroup **) (****************************************************************************) cSettingsgroup * = "Settingsgroup.mui"; (* Methods *) (* Attributes *) (****************************************************************************) (** Settings **) (****************************************************************************) cSettings * = "Settings.mui"; (* Methods *) (* Attributes *) (****************************************************************************) (** Frameadjust **) (****************************************************************************) cFrameadjust * = "Frameadjust.mui"; (* Methods *) (* Attributes *) (****************************************************************************) (** Penadjust **) (****************************************************************************) cPenadjust * = "Penadjust.mui"; (* Methods *) (* Attributes *) CONST aPenadjustPSIMode * = 80421CBBH; (* V11 i.. BOOL *) (****************************************************************************) (** Imageadjust **) (****************************************************************************) cImageadjust * = "Imageadjust.mui"; (* Methods *) (* Attributes *) (****************************************************************************) (** Virtgroup **) (****************************************************************************) cVirtgroup * = "Virtgroup.mui"; (* Methods *) (* Attributes *) CONST aVirtgroupHeight * = 80423038H; (* V6 ..g LONG *) CONST aVirtgroupInput * = 80427F7EH; (* V11 i.. BOOL *) CONST aVirtgroupLeft * = 80429371H; (* V6 isg LONG *) CONST aVirtgroupTop * = 80425200H; (* V6 isg LONG *) CONST aVirtgroupWidth * = 80427C49H; (* V6 ..g LONG *) (****************************************************************************) (** Scrollgroup **) (****************************************************************************) cScrollgroup * = "Scrollgroup.mui"; (* Methods *) (* Attributes *) CONST aScrollgroupContents * = 80421261H; (* V4 i.. Object * *) CONST aScrollgroupFreeHoriz * = 804292F3H; (* V9 i.. BOOL *) CONST aScrollgroupFreeVert * = 804224F2H; (* V9 i.. BOOL *) (****************************************************************************) (** Scrollbar **) (****************************************************************************) cScrollbar * = "Scrollbar.mui"; (* Attributes *) CONST aScrollbarType * = 8042FB6BH; (* V11 i.. LONG *) CONST vScrollbarTypeDefault * = 0; CONST vScrollbarTypeBottom * = 1; CONST vScrollbarTypeTop * = 2; CONST vScrollbarTypeSym * = 3; (****************************************************************************) (** Listview **) (****************************************************************************) cListview * = "Listview.mui"; (* Attributes *) CONST aListviewClickColumn * = 8042D1B3H; (* V7 ..g LONG *) CONST aListviewDefClickColumn * = 8042B296H; (* V7 isg LONG *) CONST aListviewDoubleClick * = 80424635H; (* V4 i.g BOOL *) CONST aListviewDragType * = 80425CD3H; (* V11 isg LONG *) CONST aListviewInput * = 8042682DH; (* V4 i.. BOOL *) CONST aListviewList * = 8042BCCEH; (* V4 i.g Object * *) CONST aListviewMultiSelect * = 80427E08H; (* V7 i.. LONG *) CONST aListviewScrollerPos * = 8042B1B4H; (* V10 i.. BOOL *) CONST aListviewSelectChange * = 8042178FH; (* V4 ..g BOOL *) CONST vListviewDragTypeNone * = 0; CONST vListviewDragTypeImmediate * = 1; CONST vListviewMultiSelectNone * = 0; CONST vListviewMultiSelectDefault * = 1; CONST vListviewMultiSelectShifted * = 2; CONST vListviewMultiSelectAlways * = 3; CONST vListviewScrollerPosDefault * = 0; CONST vListviewScrollerPosLeft * = 1; CONST vListviewScrollerPosRight * = 2; (****************************************************************************) (** Radio **) (****************************************************************************) cRadio * = "Radio.mui"; (* Attributes *) CONST aRadioActive * = 80429B41H; (* V4 isg LONG *) CONST aRadioEntries * = 8042B6A1H; (* V4 i.. STRPTR * *) (****************************************************************************) (** Cycle **) (****************************************************************************) cCycle * = "Cycle.mui"; (* Attributes *) CONST aCycleActive * = 80421788H; (* V4 isg LONG *) CONST aCycleEntries * = 80420629H; (* V4 i.. STRPTR * *) CONST vCycleActiveNext * = -1; CONST vCycleActivePrev * = -2; (****************************************************************************) (** Coloradjust **) (****************************************************************************) cColoradjust * = "Coloradjust.mui"; (* Attributes *) CONST aColoradjustBlue * = 8042B8A3H; (* V4 isg ULONG *) CONST aColoradjustGreen * = 804285ABH; (* V4 isg ULONG *) CONST aColoradjustModeID * = 8042EC59H; (* V4 isg ULONG *) CONST aColoradjustRed * = 80420EAAH; (* V4 isg ULONG *) CONST aColoradjustRGB * = 8042F899H; (* V4 isg ULONG * *) (****************************************************************************) (** Palette **) (****************************************************************************) cPalette * = "Palette.mui"; (* Attributes *) CONST aPaletteEntries * = 8042A3D8H; (* V6 i.g struct MUI_Palette_Entry * *) CONST aPaletteGroupable * = 80423E67H; (* V6 isg BOOL *) CONST aPaletteNames * = 8042C3A2H; (* V6 isg char ** *) (****************************************************************************) (** Popstring **) (****************************************************************************) cPopstring * = "Popstring.mui"; (* Methods *) CONST mPopstringClose * = 8042DC52H; (* V7 *) CONST mPopstringOpen * = 804258BAH; (* V7 *) (* Attributes *) CONST aPopstringButton * = 8042D0B9H; (* V7 i.g Object * *) CONST aPopstringCloseHook * = 804256BFH; (* V7 isg struct Hook * *) CONST aPopstringOpenHook * = 80429D00H; (* V7 isg struct Hook * *) CONST aPopstringString * = 804239EAH; (* V7 i.g Object * *) CONST aPopstringToggle * = 80422B7AH; (* V7 isg BOOL *) (****************************************************************************) (** Popobject **) (****************************************************************************) cPopobject * = "Popobject.mui"; (* Attributes *) CONST aPopobjectFollow * = 80424CB5H; (* V7 isg BOOL *) CONST aPopobjectLight * = 8042A5A3H; (* V7 isg BOOL *) CONST aPopobjectObject * = 804293E3H; (* V7 i.g Object * *) CONST aPopobjectObjStrHook * = 8042DB44H; (* V7 isg struct Hook * *) CONST aPopobjectStrObjHook * = 8042FBE1H; (* V7 isg struct Hook * *) CONST aPopobjectVolatile * = 804252ECH; (* V7 isg BOOL *) CONST aPopobjectWindowHook * = 8042F194H; (* V9 isg struct Hook * *) (****************************************************************************) (** Poplist **) (****************************************************************************) cPoplist * = "Poplist.mui"; (* Attributes *) CONST aPoplistArray * = 8042084CH; (* V8 i.. char ** *) (****************************************************************************) (** Popscreen **) (****************************************************************************) cPopscreen * = "Popscreen.mui"; (* Attributes *) (****************************************************************************) (** Popasl **) (****************************************************************************) cPopasl * = "Popasl.mui"; (* Attributes *) CONST aPopaslActive * = 80421B37H; (* V7 ..g BOOL *) CONST aPopaslStartHook * = 8042B703H; (* V7 isg struct Hook * *) CONST aPopaslStopHook * = 8042D8D2H; (* V7 isg struct Hook * *) CONST aPopaslType * = 8042DF3DH; (* V7 i.g ULONG *) (****************************************************************************) (** Semaphore **) (****************************************************************************) cSemaphore * = "Semaphore.mui"; (* Methods *) CONST mSemaphoreAttempt * = 80426CE2H; (* V11 *) CONST mSemaphoreAttemptShared * = 80422551H; (* V11 *) CONST mSemaphoreObtain * = 804276F0H; (* V11 *) CONST mSemaphoreObtainShared * = 8042EA02H; (* V11 *) CONST mSemaphoreRelease * = 80421F2DH; (* V11 *) (****************************************************************************) (** Applist **) (****************************************************************************) cApplist * = "Applist.mui"; (* Methods *) (****************************************************************************) (** Dataspace **) (****************************************************************************) cDataspace * = "Dataspace.mui"; (* Methods *) CONST mDataspaceAdd * = 80423366H; (* V11 *) CONST mDataspaceClear * = 8042B6C9H; (* V11 *) CONST mDataspaceMerge * = 80423E2BH; (* V11 *) CONST mDataspaceReadIFF * = 80420DFBH; (* V11 *) CONST mDataspaceRemove * = 8042DCE1H; (* V11 *) CONST mDataspaceWriteIFF * = 80425E8EH; (* V11 *) (* Attributes *) CONST aDataspacePool * = 80424CF9H; (* V11 i.. APTR *) (****************************************************************************) (** Configdata **) (****************************************************************************) cConfigdata * = "Configdata.mui"; (* Methods *) (* Attributes *) (*****************************************) (* End of automatic header file creation *) (*****************************************) (* <*IF OberonA THEN*> $IF OberonA *) TYPE LONGINTARRAY = ARRAY 1 OF LONGINT; SET32ARRAY = ARRAY 1 OF Sets.SET32; (* <*END*> $END *) (*************************************************************************** ** Parameter structures for some classes ***************************************************************************) TYPE (* <*IF OberonA THEN*> $IF OberonA *) PaletteEntryPtr * = POINTER [2] TO PaletteEntry; RenderInfoPtr * = POINTER [2] TO RenderInfo; ScrmodelistEntryPtr * = POINTER [2] TO ScrmodelistEntry; InputHandlerNodePtr * = POINTER [2] TO InputHandlerNode; NotifyDataPtr * = POINTER [2] TO NotifyData; MinMaxPtr * = POINTER [2] TO MinMax; WidthHeightPtr *= POINTER [2] TO WidthHeight; LayoutMsgPtr * = POINTER [2] TO LayoutMsg; AreaDataPtr * = POINTER [2] TO AreaData; GlobalInfoPtr * = POINTER [2] TO GlobalInfo; (* <* ELSE *> $ELSE *) PaletteEntryPtr * = UNTRACED POINTER TO PaletteEntry; RenderInfoPtr * = UNTRACED POINTER TO RenderInfo; ScrmodelistEntryPtr * = UNTRACED POINTER TO ScrmodelistEntry; InputHandlerNodePtr *= UNTRACED POINTER TO InputHandlerNode; NotifyDataPtr * = UNTRACED POINTER TO NotifyData; MinMaxPtr * = UNTRACED POINTER TO MinMax; WidthHeightPtr *= UNTRACED POINTER TO WidthHeight; LayoutMsgPtr * = UNTRACED POINTER TO LayoutMsg; AreaDataPtr * = UNTRACED POINTER TO AreaData; GlobalInfoPtr * = UNTRACED POINTER TO GlobalInfo; (* <*END*> $END *) (* <*IF OberonA THEN*> $IF OberonA *) PaletteEntry * = RECORD [2]; (* <* ELSE *> $ELSE *) PaletteEntry * = STRUCT; (* <*END*> $END *) id * : LONGINT; red * : LONGINT; green * : LONGINT; blue * : LONGINT; group * : LONGINT; END; CONST vPaletteEntryEnd = -1; TYPE (* <*IF OberonA THEN*> $IF OberonA *) ScrmodelistEntry * = RECORD [2]; (* <* ELSE *> $ELSE *) ScrmodelistEntry * = STRUCT (* <*END*> $END *) name * : Exec.STRPTR; modeID * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) InputHandlerNode *= RECORD [2]; node *: Exec.MinNode; (* <* ELSE *> $ELSE *) InputHandlerNode *= STRUCT( node *: Exec.MinNode ); (* <*END*> $END *) object *: Object; (* <*IF OberonA THEN*> $IF OberonA *) signals * : Sets.SET32; flags * : Sets.SET32; (* <* ELSE *> $ELSE *) signals * : LONGSET; flags * : LONGSET; (* <*END*> $END *) method * : LONGINT; END; (************************************************************************* ** Structures and Macros for creating custom classes. *************************************************************************) (* ** GENERAL NOTES: ** ** - Everything described in this header file is only valid within ** MUI classes. You may never use any of these things out of ** a class, e.g. in a traditional MUI application. ** ** - Except when otherwise stated, all structures are strictly read only. *) (* Instance data of notify class *) TYPE (* <*IF OberonA THEN*> $IF OberonA *) NotifyData * = RECORD [2] (* <* ELSE *> $ELSE *) NotifyData * = STRUCT (* <*END*> $END *) globalInfo * : GlobalInfoPtr; userData * : LONGINT; priv0 * : LONGINT; priv1 * : LONGINT; priv2 * : LONGINT; priv3 * : LONGINT; priv4 * : LONGINT; END; (* MUI_MinMax structure holds information about minimum, maximum and default dimensions of an object. *) (* <*IF OberonA THEN*> $IF OberonA *) MinMax * = RECORD [2] (* <* ELSE *> $ELSE *) MinMax * = STRUCT (* <*END*> $END *) minWidth * : INTEGER; minHeight * : INTEGER; maxWidth * : INTEGER; maxHeight * : INTEGER; defWidth * : INTEGER; defHeight * : INTEGER; END; CONST maxmax * = 10000; (* use this if a dimension is not limited. *) (* Hook message for custom layout *) TYPE (* <*IF OberonA THEN*> $IF OberonA *) WidthHeight *= RECORD [2] (* <* ELSE *> $ELSE *) WidthHeight *= STRUCT; (* <*END*> $END *) width*,height* : INTEGER; END; (* <*IF OberonA THEN*> $IF OberonA *) LayoutMsg *= RECORD [2] (* <* ELSE *> $ELSE *) LayoutMsg *= STRUCT (* <*END*> $END *) type *: LONGINT; children *: Exec.MinListPtr; minMax *: MinMax; widhtHeight *: WidthHeight; END; (* (partial) instance data of area class *) TYPE (* <*IF OberonA THEN*> $IF OberonA *) AreaData * = RECORD [2] (* <* ELSE *> $ELSE *) AreaData * = STRUCT (* <*END*> $END *) renderInfo * : RenderInfoPtr; (* RenderInfo for this object *) priv0 : Exec.APTR; (* !!! private data !!! *) font * : Graphics.TextFontPtr; (* Font *) minMax * : MinMax; (* min/max/default sizes *) box * : Intuition.IBox; (* position and dimension *) addleft * : SHORTINT; (* frame & innerspacing left offset *) addtop * : SHORTINT; (* frame & innerspacing top offset *) subwidth * : SHORTINT; (* frame & innerspacing add. width *) subheight * : SHORTINT; (* frame & innerspacing add. height *) (* <*IF OberonA THEN*> $IF OberonA *) flags * : Sets.SET32; (* see definitions below *) (* <* ELSE *> $ELSE *) flags * : LONGSET; (* <*END*> $END *) (* ... private data follows ... *) END; (* Definitions for AreaData.flags *) CONST adfDrawobject * = 0; (* completely redraw yourself *) adfDrawupdate * = 1; (* only update yourself *) (* Global information about parent application. *) TYPE (* <*IF OberonA THEN*> $IF OberonA *) GlobalInfo * = RECORD [2]; (* <* ELSE *> $ELSE *) GlobalInfo * = STRUCT; (* <*END*> $END *) priv0 : Exec.APTR; (* !!! private data !!! *) applicationObject * : Object; (* ... private data follows ... *) END; (* MUI's draw pens *) CONST penShine *= 0; penHalfshine *= 1; penBackground *= 2; penHalfshadow *= 3; penShadow *= 4; penText *= 5; penFill *= 6; penActiveObj *= 7; penCount *= 8; TYPE (* <*IF OberonA THEN*> $IF OberonA *) PenPtr * = POINTER [2] TO ARRAY penCount OF INTEGER; (* <* ELSE *> $ELSE *) PenPtr * = UNTRACED POINTER TO ARRAY penCount OF INTEGER; (* <*END*> $END *) (* Information on display environment *) (* <*IF OberonA THEN*> $IF OberonA *) RenderInfo * = RECORD [2] (* <* ELSE *> $ELSE *) RenderInfo * = STRUCT (* <*END*> $END *) windowObject * : Object; (* valid between MUIM_Setup/MUIM_Cleanup *) screen * : Intuition.ScreenPtr; (* valid between MUIM_Setup/MUIM_Cleanup *) drawInfo * : Intuition.DrawInfoPtr; (* valid between MUIM_Setup/MUIM_Cleanup *) pens * : PenPtr; (* valid between MUIM_Setup/MUIM_Cleanup *) window * : Intuition.WindowPtr; (* valid between MUIM_Show/MUIM_Hide *) rastPort * : Graphics.RastPortPtr; (* valid between MUIM_Show/MUIM_Hide *) (* ... private data follows ...*) END; (* User configurable keyboard events coming with MUIM_HandleInput *) CONST keyRelease *= -2; (* not a real key, faked when wenn keyPress is released *) keyNone *= -1; keyPress *= 0; keyToggle *= 1; keyUp *= 2; keyDown *= 3; keyPageUp *= 4; keyPageDown *= 5; keyTop *= 6; keyBottom *= 7; keyLeft *= 8; keyRight *= 9; keyWordLeft *= 10; keyWordRight *= 11; keyLineStart *= 12; keyLineEnd *= 13; keyGadgetNext *= 14; keyGadgetPrev *= 15; keyGadgetOff *= 16; keyWindowClose *= 17; keyWindowNext *= 18; keyWindowPrev *= 19; keyHelp *= 20; keyPopup *= 21; (* Mui.CustomClass returned by Mui.CreateCustomClass() *) TYPE (* <*IF OberonA THEN*> $IF OberonA *) CustomClassPtr *= POINTER [2] TO CustomClass; CustomClass *= RECORD [2] (* <* ELSE *> $ELSE *) CustomClassPtr *= UNTRACED POINTER TO CustomClass; CustomClass *= STRUCT (* <*END*> $END *) userData *: Exec.APTR; (* use for whatever you want *) utilityBase *: Exec.LibraryPtr; (* MUI has opened these libraries *) dosBase *: Exec.LibraryPtr; (* for you automatically. You can *) gfxBase *: Exec.LibraryPtr; (* use them or decide to open *) intuitionBase *: Exec.LibraryPtr; (* your libraries yourself. *) super *: Intuition.IClassPtr; (* pointer to super class *) class *: Intuition.IClassPtr; (* pointer to the new class *) (* ... private data follows ... *) END; (*************************************************************************** ** ** For Boopsi Image Implementors Only: ** ** If MUI is using a boopsi image object, it will send a special method ** immediately after object creation. This method has a parameter structure ** where the boopsi can fill in its minimum and maximum size and learn if ** its used in a horizontal or vertical context. ** ** The boopsi image must use the method id (MUIM_BoopsiQuery) as return ** value. That's how MUI sees that the method is implemented. ** ** Note: MUI does not depend on this method. If the boopsi image doesn't ** implement it, minimum size will be 0 and maximum size unlimited. ** ***************************************************************************) CONST mBoopsiQuery *= 80427157H; (* this is send to the boopsi and *) (* must be used as return value *) TYPE (* <*IF OberonA THEN*> $IF OberonA *) pBoopsiQuery *= RECORD [2]( Intuition.MsgBase ); (* parameter structure *) msg * : Intuition.Msg; (* <* ELSE *> $ELSE *) pBoopsiQuery *= STRUCT( msg *: Intuition.Msg ); (* parameter structure *) (* <*END*> $END *) screen * : Intuition.ScreenPtr; (* read only, display context *) (* <*IF OberonA THEN*> $IF OberonA *) flags * : Sets.SET32; (* read only, see below *) (* <* ELSE *> $ELSE *) flags * : LONGSET; (* read only, see below *) (* <*END*> $END *) minWidth * : LONGINT; (* write only, fill in min width *) minHeight * : LONGINT; (* write only, fill in min height *) maxWidth * : LONGINT; (* write only, fill in max width *) maxHeight * : LONGINT; (* write only, fill in max height *) renderInfo * : RenderInfoPtr; (* read only, display context *) (* ... may grow in future ... *) END; CONST bqfHoriz *= 0; (* object used in a horizontal *) (* context (else vertical) *) CONST bqMaxMax *= 10000; (* use this for unlimited MaxWidth/Height *) (*************************************************************************** ** Method Parameter Structures ** ***************************************************************************) TYPE (* Empty (* <*IF OberonA THEN*> $IF OberonA *) pPtr * = POINTER [2] TO p; p *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pPtr * = UNTRACED POINTER TO p; p *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) END; *) (*************) (* Semaphore *) (*************) (* <*IF OberonA THEN*> $IF OberonA *) pSemaphoreAttemptPtr * = POINTER [2] TO pSemaphoreAttempt; pSemaphoreAttempt *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pSemaphoreAttemptPtr * = UNTRACED POINTER TO pSemaphoreAttempt; pSemaphoreAttempt *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pSemaphoreAttemptSharedPtr * = POINTER [2] TO pSemaphoreAttemptShared; pSemaphoreAttemptShared *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pSemaphoreAttemptSharedPtr * = UNTRACED POINTER TO pSemaphoreAttemptShared; pSemaphoreAttemptShared *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pSemaphoreObtainPtr * = POINTER [2] TO pSemaphoreObtain; pSemaphoreObtain *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pSemaphoreObtainPtr * = UNTRACED POINTER TO pSemaphoreObtain; pSemaphoreObtain *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pSemaphoreObtainSharedPtr * = POINTER [2] TO pSemaphoreObtainShared; pSemaphoreObtainShared *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pSemaphoreObtainSharedPtr * = UNTRACED POINTER TO pSemaphoreObtainShared; pSemaphoreObtainShared *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pSemaphoreReleasePtr* = POINTER [2] TO pSemaphoreRelease; pSemaphoreRelease *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pSemaphoreReleasePtr * = UNTRACED POINTER TO pSemaphoreRelease; pSemaphoreRelease *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) END; (*************) (* Dataspace *) (*************) (* <*IF OberonA THEN*> $IF OberonA *) pDataspaceAddPtr * = POINTER [2] TO pDataspaceAdd; pDataspaceAdd *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pDataspaceAddPtr * = UNTRACED POINTER TO pDataspaceAdd; pDataspaceAdd *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) data *: Exec.APTR; len *: LONGINT; id *: LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pDataspaceClearPtr * = POINTER [2] TO pDataspaceClear; pDataspaceClear *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pDataspaceClearPtr * = UNTRACED POINTER TO pDataspaceClear; pDataspaceClear *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pDataspaceMergePtr * = POINTER [2] TO pDataspaceMerge; pDataspaceMerge *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pDataspaceMergePtr * = UNTRACED POINTER TO pDataspaceMerge; pDataspaceMerge *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) dataspace*:Object; END; (* <*IF OberonA THEN*> $IF OberonA *) pDataspaceReadIFFPtr * = POINTER [2] TO pDataspaceReadIFF; pDataspaceReadIFF *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pDataspaceReadIFFPtr * = UNTRACED POINTER TO pDataspaceReadIFF; pDataspaceReadIFF *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) handle*: IFFParse.IFFHandlePtr; END; (* <*IF OberonA THEN*> $IF OberonA *) pDataspaceRemovePtr * = POINTER [2] TO pDataspaceRemove; pDataspaceRemove *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pDataspaceRemovePtr * = UNTRACED POINTER TO pDataspaceRemove; pDataspaceRemove *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) id*:LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pDataspaceWriteIFFPtr * = POINTER [2] TO pDataspaceWriteIFF; pDataspaceWriteIFF *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pDataspaceWriteIFFPtr * = UNTRACED POINTER TO pDataspaceWriteIFF; pDataspaceWriteIFF *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) handle *: IFFParse.IFFHandlePtr; type *: LONGINT; id *: LONGINT; END; (**********) (* Notify *) (**********) (* <*IF OberonA THEN*> $IF OberonA *) pCallHookPtr * = POINTER [2] TO pCallHook; pCallHook * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pCallHookPtr * = UNTRACED POINTER TO pCallHook; pCallHook * = STRUCT( msg*:Intuition.Msg ); (* <*END*> $END *) hook * : Utility.HookPtr; (* following hookparams *) END; (* <*IF OberonA THEN*> $IF OberonA *) pFindUDataPtr * = POINTER [2] TO pFindUData; pFindUData * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pFindUDataPtr * = UNTRACED POINTER TO pFindUData; pFindUData * = STRUCT( msg*:Intuition.Msg ); (* <*END*> $END *) udata * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pGetConfigItemPtr * = POINTER [2] TO pGetConfigItem; pGetConfigItem * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pGetConfigItemPtr * = UNTRACED POINTER TO pGetConfigItemPtr; pGetConfigItem * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) id * : LONGINT; storage * : SYSTEM.ADDRESS; END; (* <*IF OberonA THEN*> $IF OberonA *) pGetUDataPtr * = POINTER [2] TO pGetUData; pGetUData * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pGetUDataPtr * = UNTRACED POINTER TO pGetUData; pGetUData * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) udata * : LONGINT; attr * : LONGINT; storage * : SYSTEM.ADDRESS; END; (* <*IF OberonA THEN*> $IF OberonA *) pKillNotifyPtr * = POINTER [2] TO pKillNotify; pKillNotify * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pKillNotifyPtr * = UNTRACED POINTER TO pKillNotify; pKillNotify * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) trigAttr * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pMultiSetPtr * = POINTER [2] TO pMultiSet; pMultiSet * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pMultiSetPtr * = UNTRACED POINTER TO pMultiSet; pMultiSet * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) attr * : LONGINT; val * : LONGINT; obj * : Object; (* ... *) END; (* <*IF OberonA THEN*> $IF OberonA *) pNoNotifySetPtr * = POINTER [2] TO pNoNotifySet; pNoNotifySet * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pNoNotifySetPtr * = UNTRACED POINTER TO pNoNotifySet; pNoNotifySet * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) attr * : LONGINT; format * : Exec.STRPTR; val * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pNotifyPtr * = POINTER [2] TO pNotify; pNotify * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pNotifyPtr * = UNTRACED POINTER TO pNotify; pNotify * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) trigAttr * : LONGINT; trigVal * : LONGINT; destObj * : Object; (* FollowingParams *) END; (* <*IF OberonA THEN*> $IF OberonA *) pSetPtr * = POINTER [2] TO pSet; pSet * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pSetPtr * = UNTRACED POINTER TO pSet; pSet * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) attr * : LONGINT; val * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pSetAsStringPtr * = POINTER [2] TO pSetAsString; pSetAsString * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pSetAsStringPtr * = UNTRACED POINTER TO pSetAsString; pSetAsString * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) attr * : LONGINT; format * : Exec.STRPTR; val * : LONGINT; (* ... *) END; (* <*IF OberonA THEN*> $IF OberonA *) pSetUDataPtr * = POINTER [2] TO pSetUData; pSetUData * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pSetUDataPtr * = UNTRACED POINTER TO pSetUData; pSetUData * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) udata * : LONGINT; attr * : LONGINT; val * : SYSTEM.ADDRESS; END; (* <*IF OberonA THEN*> $IF OberonA *) pWriteLongPtr * = POINTER [2] TO pWriteLong; pWriteLong * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <* ELSE *> $ELSE *) pWriteLongPtr * = UNTRACED POINTER TO pWriteLong; pWriteLong * = STRUCT( msg * : Intuition.Msg ); (* <*END*> $END *) val * : LONGINT; (* <*IF OberonA THEN*> $IF OberonA *) memory * : POINTER [2] TO LONGINTARRAY; (* <* ELSE *> $ELSE *) memory * : UNTRACED POINTER TO LONGINT; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pWriteStringPtr * = POINTER [2] TO pWriteString; pWriteString * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <* ELSE *> $ELSE *) pWriteStringPtr * = UNTRACED POINTER TO pWriteString; pWriteString * = STRUCT( msg * : Intuition.Msg ); (* <*END*> $END *) str * : Exec.STRPTR; memory * : Exec.STRPTR; END; (**********) (* Family *) (**********) (* <*IF OberonA THEN*> $IF OberonA *) pFamilyAddHeadPtr * = POINTER [2] TO pFamilyAddHead; pFamilyAddHead * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pFamilyAddHeadPtr * = UNTRACED POINTER TO pFamilyAddHead; pFamilyAddHead * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) obj *: Object; END; (* <*IF OberonA THEN*> $IF OberonA *) pFamilyAddTailPtr * = POINTER [2] TO pFamilyAddTail; pFamilyAddTail * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pFamilyAddTailPtr * = UNTRACED POINTER TO pFamilyAddTail; pFamilyAddTail * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) obj *: Object; END; (* <*IF OberonA THEN*> $IF OberonA *) pFamilyInsertPtr * = POINTER [2] TO pFamilyInsert; pFamilyInsert * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pFamilyInsertPtr * = UNTRACED POINTER TO pFamilyInsert; pFamilyInsert * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) obj *: Object; pred *: Object; END; (* <*IF OberonA THEN*> $IF OberonA *) pFamilyRemovePtr * = POINTER [2] TO pFamilyRemove; pFamilyRemove * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pFamilyRemovePtr * = UNTRACED POINTER TO pFamilyRemove; pFamilyRemove * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) obj *: Object; END; (* <*IF OberonA THEN*> $IF OberonA *) pFamilySortPtr * = POINTER [2] TO pFamilySort; pFamilySort * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pFamilySortPtr * = UNTRACED POINTER TO pFamilySort; pFamilySort * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) obj *: Object; END; (* <*IF OberonA THEN*> $IF OberonA *) pFamilyTransferPtr * = POINTER [2] TO pFamilyTransfer; pFamilyTransfer * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pFamilyTransferPtr * = UNTRACED POINTER TO pFamilyTransfer; pFamilyTransfer * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) family *: Object; END; (***************) (* Application *) (***************) (* <*IF OberonA THEN*> $IF OberonA *) pApplicationPtr * = POINTER [2] TO pApplication; pApplication * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationPtr * = UNTRACED POINTER TO pApplication; pApplication * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationAddInputHandlerPtr * = POINTER [2] TO pApplicationAddInputHandler; pApplicationAddInputHandler * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationAddInputHandlerPtr * = UNTRACED POINTER TO pApplicationAddInputHandler; pApplicationAddInputHandler * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) ihNode * : InputHandlerNodePtr; END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationCheckRefreshPtr * = POINTER [2] TO pApplicationCheckRefresh; pApplicationCheckRefresh * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationCheckRefreshPtr * = UNTRACED POINTER TO pApplicationCheckRefresh; pApplicationCheckRefresh * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationCloseConfigWindowPtr * = POINTER [2] TO pApplicationCloseConfigWindow; pApplicationCloseConfigWindow * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; flags * : Sets.SET32; (* <*ELSE*> $ELSE *) pApplicationCloseConfigWindowPtr * = UNTRACED POINTER TO pApplicationCloseConfigWindow; pApplicationCloseConfigWindow * = STRUCT (msg*:Intuition.Msg) flags *: LONGSET; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationConfigNotifyPtr * = POINTER [2] TO pApplicationConfigNotify; pApplicationConfigNotify * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationConfigNotifyPtr * = UNTRACED POINTER TO pApplicationConfigNotify; pApplicationConfigNotify * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationGetMenuCheckPtr * = POINTER [2] TO pApplicationGetMenuCheck; pApplicationGetMenuCheck * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *) msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationGetMenuCheckPtr * = UNTRACED POINTER TO pApplicationGetMenuCheck; pApplicationGetMenuCheck * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) menuID * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationGetMenuStatePtr * = POINTER [2] TO pApplicationGetMenuState; pApplicationGetMenuState * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *) msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationGetMenuStatePtr * = UNTRACED POINTER TO pApplicationGetMenuState; pApplicationGetMenuState * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) menuID * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationInputPtr * = POINTER [2] TO pApplicationInput; pApplicationInput * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationInputPtr * = UNTRACED POINTER TO pApplicationInput; pApplicationInput * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) (* <*IF OberonA THEN*> $IF OberonA *) signal * : POINTER [2] TO SET32ARRAY; (* <* ELSE *> $ELSE *) signal * : UNTRACED POINTER TO LONGSET; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationInputBufferedPtr * = POINTER [2] TO pApplicationInputBuffered; pApplicationInputBuffered * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationInputBufferedPtr * = UNTRACED POINTER TO pApplicationInputBuffered; pApplicationInputBuffered * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) (* <*IF OberonA THEN*> $IF OberonA *) signal * : POINTER [2] TO SET32ARRAY; (* <* ELSE *> $ELSE *) signal * : UNTRACED POINTER TO LONGSET; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationLoadPtr * = POINTER [2] TO pApplicationLoad; pApplicationLoad * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationLoadPtr * = UNTRACED POINTER TO pApplicationLoad; pApplicationLoad * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) name * : Exec.STRPTR; END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationLoadConfigPtr * = POINTER [2] TO pApplicationLoadConfig; pApplicationLoadConfig * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationLoadConfigPtr * = UNTRACED POINTER TO pApplicationLoadConfig; pApplicationLoadConfig * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) name *: Exec.STRPTR; (* <*IF OberonA THEN*> $IF OberonA *) flags *: Sets.SET32; (* <* ELSE *> $ELSE *) flags *: LONGSET; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationNewInputPtr * = POINTER [2] TO pApplicationNewInput; pApplicationNewInput * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationNewInputPtr * = UNTRACED POINTER TO pApplicationNewInput; pApplicationNewInput * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) (* <*IF OberonA THEN*> $IF OberonA *) signal *: Sets.SET32; (* <* ELSE *> $ELSE *) signal *: LONGSET; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationOpenConfigWindowPtr * = POINTER [2] TO pApplicationOpenConfigWindow; pApplicationOpenConfigWindow * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; flags * : Sets.SET32; (* <*ELSE*> $ELSE *) pApplicationOpenConfigWindowPtr * = UNTRACED POINTER TO pApplicationOpenConfigWindow; pApplicationOpenConfigWindow * = STRUCT (msg*:Intuition.Msg) flags * : LONGSET; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationPushMethodPtr * = POINTER [2] TO pApplicationPushMethod; pApplicationPushMethod * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationPushMethodPtr * = UNTRACED POINTER TO pApplicationPushMethod; pApplicationPushMethod * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) dest * : Object; (* following Method *) END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationRemInputHandlerPtr * = POINTER [2] TO pApplicationRemInputHandler; pApplicationRemInputHandler * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationRemInputHandlerPtr * = UNTRACED POINTER TO pApplicationRemInputHandler; pApplicationRemInputHandler * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) ihNode *: InputHandlerNodePtr; END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationReturnIDPtr * = POINTER [2] TO pApplicationReturnID; pApplicationReturnID * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationReturnIDPtr * = UNTRACED POINTER TO pApplicationReturnID; pApplicationReturnID * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) retid * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationSavePtr * = POINTER [2] TO pApplicationSave; pApplicationSave * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationSavePtr * = UNTRACED POINTER TO pApplicationSave; pApplicationSave * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) name * : Exec.STRPTR; END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationSaveConfigPtr * = POINTER [2] TO pApplicationSaveConfig; pApplicationSaveConfig * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationSaveConfigPtr * = UNTRACED POINTER TO pApplicationSaveConfig; pApplicationSaveConfig * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) name *: Exec.STRPTR; (* <*IF OberonA THEN*> $IF OberonA *) flags *: Sets.SET32; (* <* ELSE *> $ELSE *) flags *: LONGSET; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationSetConfigItemPtr * = POINTER [2] TO pApplicationSetConfigItem; pApplicationSetConfigItem * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationSetConfigItemPtr * = UNTRACED POINTER TO pApplicationSetConfigItem; pApplicationSetConfigItem * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) item * : LONGINT; data * : Exec.APTR; END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationSetMenuCheckPtr * = POINTER [2] TO pApplicationSetMenuCheck; pApplicationSetMenuCheck * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *) msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationSetMenuCheckPtr * = UNTRACED POINTER TO pApplicationSetMenuCheck; pApplicationSetMenuCheck * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) menuID * : LONGINT; set * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationSetMenuStatePtr * = POINTER [2] TO pApplicationSetMenuState; pApplicationSetMenuState * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *) msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationSetMenuStatePtr * = UNTRACED POINTER TO pApplicationSetMenuState; pApplicationSetMenuState * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) menuID * : LONGINT; set * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pApplicationShowHelpPtr * = POINTER [2] TO pApplicationShowHelp; pApplicationShowHelp * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pApplicationShowHelpPtr * = UNTRACED POINTER TO pApplicationShowHelp; pApplicationShowHelp * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) window * : Object; name * : Exec.STRPTR; node * : Exec.STRPTR; line * : LONGINT; END; (***********) (* Dirlist *) (***********) (* <*IF OberonA THEN*> $IF OberonA *) pDirlistReReadPtr * = POINTER [2] TO pDirlistReRead; pDirlistReRead * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pDirlistReReadPtr * = UNTRACED POINTER TO pDirlistReRead; pDirlistReRead * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (*********) (* Group *) (*********) (* <*IF OberonA THEN*> $IF OberonA *) pGroupExitChangePtr * = POINTER [2] TO pGroupExitChange; pGroupExitChange * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pGroupExitChangePtr * = UNTRACED POINTER TO pGroupExitChange; pGroupExitChange * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pGroupInitChangePtr * = POINTER [2] TO pGroupInitChange; pGroupInitChange * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pGroupInitChangePtr * = UNTRACED POINTER TO pGroupInitChange; pGroupInitChange * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pGroupBackfillPtr * = POINTER [2] TO pGroupBackfill; pGroupBackfill * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pGroupBackfillPtr * = UNTRACED POINTER TO pGroupBackfill; pGroupBackfill * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) left*,top*,right*,bottom* : INTEGER; END; (**********) (* Window *) (**********) (* <*IF OberonA THEN*> $IF OberonA *) pWindowGetMenuCheckPtr * = POINTER [2] TO pWindowGetMenuCheck; pWindowGetMenuCheck * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *) msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pWindowGetMenuCheckPtr * = UNTRACED POINTER TO pWindowGetMenuCheck; pWindowGetMenuCheck * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) menuID * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pWindowGetMenuStatePtr * = POINTER [2] TO pWindowGetMenuState; pWindowGetMenuState * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *) msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pWindowGetMenuStatePtr * = UNTRACED POINTER TO pWindowGetMenuState; pWindowGetMenuState * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) menuID * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pWindowScreenToBackPtr * = POINTER [2] TO pWindowScreenToBack; pWindowScreenToBack * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pWindowScreenToBackPtr * = UNTRACED POINTER TO pWindowScreenToBack; pWindowScreenToBack * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pWindowScreenToFrontPtr * = POINTER [2] TO pWindowScreenToFront; pWindowScreenToFront * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pWindowScreenToFrontPtr * = UNTRACED POINTER TO pWindowScreenToFront; pWindowScreenToFront * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pWindowSetCycleChainPtr * = POINTER [2] TO pWindowSetCycleChain; pWindowSetCycleChain * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pWindowSetCycleChainPtr * = UNTRACED POINTER TO pWindowSetCycleChain; pWindowSetCycleChain * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) (* following objects *) END; (* <*IF OberonA THEN*> $IF OberonA *) pWindowSetMenuCheckPtr * = POINTER [2] TO pWindowSetMenuCheck; pWindowSetMenuCheck * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *) msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pWindowSetMenuCheckPtr * = UNTRACED POINTER TO pWindowSetMenuCheck; pWindowSetMenuCheck * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) menuID * : LONGINT; set * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pWindowSetMenuStatePtr * = POINTER [2] TO pWindowSetMenuState; pWindowSetMenuState * = RECORD [2]( Intuition.MsgBase ); (* Obsolete *) msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pWindowSetMenuStatePtr * = UNTRACED POINTER TO pWindowSetMenuState; pWindowSetMenuState * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) menuID * : LONGINT; set * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pWindowToBackPtr * = POINTER [2] TO pWindowToBack; pWindowToBack * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pWindowToBackPtr * = UNTRACED POINTER TO pWindowToBack; pWindowToBack * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pWindowToFrontPtr * = POINTER [2] TO pWindowToFront; pWindowToFront * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pWindowToFrontPtr * = UNTRACED POINTER TO pWindowToFront; pWindowToFront * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (********) (* Area *) (********) (* <*IF OberonA THEN*> $IF OberonA *) pAddToCycleChainPtr * = POINTER [2] TO pAddToCycleChain; pAddToCycleChain * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pAddToCycleChainPtr * = UNTRACED POINTER TO pAddToCycleChain; pAddToCycleChain * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pAskMinMaxPtr * = POINTER [2] TO pAskMinMax; pAskMinMax * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pAskMinMaxPtr * = UNTRACED POINTER TO pAskMinMax; pAskMinMax * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) minMax * : MinMaxPtr; END; (* <*IF OberonA THEN*> $IF OberonA *) pCleanupPtr * = POINTER [2] TO pCleanup; pCleanup * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pCleanupPtr * = UNTRACED POINTER TO pCleanup; pCleanup * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pContextMenuBuildPtr * = POINTER [2] TO pContextMenuBuild; pContextMenuBuild* = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pContextMenuBuildPtr * = UNTRACED POINTER TO pContextMenuBuild; pContextMenuBuild * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) mx*,my* : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pContextMenuChoicePtr * = POINTER [2] TO pContextMenuChoice; pContextMenuChoice* = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pContextMenuChoicePtr * = UNTRACED POINTER TO pContextMenuChoice; pContextMenuChoice * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) choice *: LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pDisablePtr * = POINTER [2] TO pDisable; pDisable * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pDisablePtr * = UNTRACED POINTER TO pDisable; pDisable * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pDragBeginPtr * = POINTER [2] TO pDragBegin; pDragBegin * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pDragBeginPtr * = UNTRACED POINTER TO pDragBegin; pDragBegin * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) obj *: Object; END; (* <*IF OberonA THEN*> $IF OberonA *) pDragDropPtr * = POINTER [2] TO pDragDrop; pDragDrop * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pDragDropPtr * = UNTRACED POINTER TO pDragDrop; pDragDrop * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) obj *: Object; x*,y*: LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pDragFinishPtr * = POINTER [2] TO pDragFinish; pDragFinish * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pDragFinishPtr * = UNTRACED POINTER TO pDragFinish; pDragFinish * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) obj *: Object; END; (* <*IF OberonA THEN*> $IF OberonA *) pDragQueryPtr * = POINTER [2] TO pDragQuery; pDragQuery * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pDragQueryPtr * = UNTRACED POINTER TO pDragQuery; pDragQuery * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) obj *: Object; END; (* <*IF OberonA THEN*> $IF OberonA *) pDragReportPtr * = POINTER [2] TO pDragReport; pDragReport * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pDragReportPtr * = UNTRACED POINTER TO pDragReport; pDragReport * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) obj *: Object; x*,y*: LONGINT; update*:LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pDrawPtr * = POINTER [2] TO pDraw; pDraw * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pDrawPtr * = UNTRACED POINTER TO pDraw; pDraw * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) (* <*IF OberonA THEN*> $IF OberonA *) flags * : Sets.SET32 (* <* ELSE *> $ELSE *) flags * : LONGSET; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pEnablePtr * = POINTER [2] TO pEnable; pEnable * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pEnablePtr * = UNTRACED POINTER TO pEnable; pEnable * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pHandleInputPtr * = POINTER [2] TO pHandleInput; pHandleInput * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pHandleInputPtr * = UNTRACED POINTER TO pHandleInput; pHandleInput * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) imsg * : Intuition.IntuiMessagePtr; muikey * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pHidePtr * = POINTER [2] TO pHide; pHide * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pHidePtr * = UNTRACED POINTER TO pHide; pHide * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pHittestPtr * = POINTER [2] TO pHittest; pHittest * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pHittestPtr * = UNTRACED POINTER TO pHittest; pHittest * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) x*,y*:LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pSetupPtr * = POINTER [2] TO pSetup; pSetup * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pSetupPtr * = UNTRACED POINTER TO pSetup; pSetup * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) renderInfo * : RenderInfoPtr; END; (* <*IF OberonA THEN*> $IF OberonA *) pShowPtr * = POINTER [2] TO pShow; pShow * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pShowPtr * = UNTRACED POINTER TO pShow; pShow * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pWhichObjectPtr * = POINTER [2] TO pWhichObject; pWhichObject * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pWhichObjectPtr * = UNTRACED POINTER TO pWhichObject; pWhichObject * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) x *, y*: LONGINT; END; (********) (* List *) (********) (* <*IF OberonA THEN*> $IF OberonA *) pListClearPtr * = POINTER [2] TO pListClear; pListClear * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListClearPtr * = UNTRACED POINTER TO pListClear; pListClear * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pListCreateImagePtr * = POINTER [2] TO pListCreateImage; pListCreateImage * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListCreateImagePtr * = UNTRACED POINTER TO pListCreateImage; pListCreateImage * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) obj *: Object; (* <*IF OberonA THEN*> $IF OberonA *) flags * : Sets.SET32 (* <* ELSE *> $ELSE *) flags * : LONGSET; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pListDeleteImagePtr * = POINTER [2] TO pListDeleteImage; pListDeleteImage * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListDeleteImagePtr * = UNTRACED POINTER TO pListDeleteImage; pListDeleteImage * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) listimg *: Exec.APTR; END; (* <*IF OberonA THEN*> $IF OberonA *) pListExchangePtr * = POINTER [2] TO pListExchange; pListExchange * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListExchangePtr * = UNTRACED POINTER TO pListExchange; pListExchange * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) pos1 * : LONGINT; pos2 * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pListGetEntryPtr * = POINTER [2] TO pListGetEntry; pListGetEntry * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListGetEntryPtr * = UNTRACED POINTER TO pListGetEntry; pListGetEntry * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) pos * : LONGINT; entry * : Exec.APTR END; (* <*IF OberonA THEN*> $IF OberonA *) pListInsertPtr * = POINTER [2] TO pListInsert; pListInsert * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListInsertPtr * = UNTRACED POINTER TO pListInsert; pListInsert * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) entries * : Exec.APTR; count * : LONGINT; pos * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pListInsertSinglePtr * = POINTER [2] TO pListInsertSingle; pListInsertSingle * = RECORD [2]( Intuition.Msg ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListInsertSinglePtr * = UNTRACED POINTER TO pListInsertSingle; pListInsertSingle * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) entry * : Exec.APTR; pos * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pListJumpPtr * = POINTER [2] TO pListJump; pListJump * = RECORD [2]( Intuition.Msg ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListJumpPtr * = UNTRACED POINTER TO pListJump; pListJump * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) pos * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pListMovePtr * = POINTER [2] TO pListMove; pListMove * = RECORD [2]( Intuition.Msg ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListMovePtr * = UNTRACED POINTER TO pListMove; pListMove * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) from * : LONGINT; to * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pListNextSelectedPtr * = POINTER [2] TO pListNextSelected; pListNextSelected * = RECORD [2]( Intuition.Msg ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListNextSelectedPtr * = UNTRACED POINTER TO pListNextSelected; pListNextSelected * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) (* <*IF OberonA THEN*> $IF OberonA *) pos * : POINTER [2] TO LONGINTARRAY; (* <* ELSE *> $ELSE *) pos * : UNTRACED POINTER TO LONGINT; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pListRedrawPtr * = POINTER [2] TO pListRedraw; pListRedraw * = RECORD [2]( Intuition.Msg ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListRedrawPtr * = UNTRACED POINTER TO pListRedraw; pListRedraw * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) pos * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pListRemovePtr * = POINTER [2] TO pListRemove; pListRemove * = RECORD [2]( Intuition.Msg ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListRemovePtr * = UNTRACED POINTER TO pListRemove; pListRemove * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) pos * : LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pListSelectPtr * = POINTER [2] TO pListSelect; pListSelect * = RECORD [2]( Intuition.Msg ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListSelectPtr * = UNTRACED POINTER TO pListSelect; pListSelect * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) pos * : LONGINT; selType * : LONGINT; (* <*IF OberonA THEN*> $IF OberonA *) state * : POINTER [2] TO LONGINTARRAY; (* <* ELSE *> $ELSE *) state * : UNTRACED POINTER TO LONGINT; (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pListSortPtr * = POINTER [2] TO pListSort; pListSort * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListSortPtr * = UNTRACED POINTER TO pListSort; pListSort * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pListTestPosPtr * = POINTER [2] TO pListTestPos; pListTestPos * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pListTestPosPtr * = UNTRACED POINTER TO pListTestPos; pListTestPos * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) x*,y*:LONGINT; res *:Exec.APTR; END; (*************) (* Popstring *) (*************) (* <*IF OberonA THEN*> $IF OberonA *) pPopstringClosePtr * = POINTER [2] TO pPopstringClose; pPopstringClose *= RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pPopstringClosePtr * = UNTRACED POINTER TO pPopstringClose; pPopstringClose *= STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) result : LONGINT; END; (***********) (* Numeric *) (***********) (* <*IF OberonA THEN*> $IF OberonA *) pNumericDecreasePtr * = POINTER [2] TO pNumericDecrease; pNumericDecrease *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pNumericDecreasePtr * = UNTRACED POINTER TO pNumericDecrease; pNumericDecrease *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) amount *:LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pNumericIncreasePtr * = POINTER [2] TO pNumericIncrease; pNumericIncrease *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pNumericIncreasePtr * = UNTRACED POINTER TO pNumericIncrease; pNumericIncrease *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) amount *:LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pNumericScaleToValuePtr * = POINTER [2] TO pNumericScaleToValue; pNumericScaleToValue *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pNumericScaleToValuePtr * = UNTRACED POINTER TO pNumericScaleToValue; pNumericScaleToValue *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) scalemin*:LONGINT; scalemax*:LONGINT; scae*:LONGINT END; (* <*IF OberonA THEN*> $IF OberonA *) pNumericSetDefaultPtr * = POINTER [2] TO pNumericSetDefault; pNumericSetDefault *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pNumericSetDefaultPtr * = UNTRACED POINTER TO pNumericSetDefault; pNumericSetDefault *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pNumericStringifyPtr * = POINTER [2] TO pNumericStringify; pNumericStringify *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pNumericStringifyPtr * = UNTRACED POINTER TO pNumericStringify; pNumericStringify *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) value *: LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pNumericValueToScalePtr * = POINTER [2] TO pNumericValueToScale; pNumericValueToScale *= RECORD [2] ( Intuition.MsgBase ); msg *: Intuition.Msg; (* <* ELSE *> $ELSE *) pNumericValueToScalePtr * = UNTRACED POINTER TO pNumericValueToScale; pNumericValueToScale *= STRUCT( msg*:Intuition.Msg); (* <*END*> $END *) scalemin*:LONGINT; scalemax*:LONGINT; END; (**********) (* Slider *) (**********) (* <*IF OberonA THEN*> $IF OberonA *) pSliderDisplayPtr * = POINTER [2] TO pSliderDisplay; pSliderDisplay * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pSliderDisplayPtr * = UNTRACED POINTER TO pSliderDisplay; pSliderDisplay * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) level *: LONGINT; mri * : RenderInfoPtr; left*,top* : LONGINT; width*,height*: LONGINT; END; (* <*IF OberonA THEN*> $IF OberonA *) pPopstringOpenPtr * = POINTER [2] TO pPopstringOpen; pPopstringOpen *= RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pPopstringOpenPtr * = UNTRACED POINTER TO pPopstringOpen; pPopstringOpen *= STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* <*IF OberonA THEN*> $IF OberonA *) pGroupPtr * = POINTER [2] TO pGroup; pGroup * = RECORD [2]( Intuition.MsgBase ); msg * : Intuition.Msg; (* <*ELSE*> $ELSE *) pGroupPtr * = UNTRACED POINTER TO pGroup; pGroup * = STRUCT (msg*:Intuition.Msg) (* <*END*> $END *) END; (* the following macros can be used to get pointers to an objects GlobalInfo and RenderInfo structures. *) (* <*IF OberonA THEN*> $IF OberonA *) dummyXFC2 = POINTER [2] TO RECORD [2] (* <* ELSE *> $ELSE *) dummyXFC2 = POINTER TO STRUCT (* <*END*> $END *) mnd : NotifyData; mad : AreaData; END; TYPE (* <*IF OberonA THEN*> $IF OberonA *) ClipHandle *= POINTER [2] TO ClipHandleDesc; ClipHandleDesc = RECORD [2] END; (* <* ELSE *> $ELSE *) ClipHandle *= UNTRACED POINTER TO ClipHandleDesc; ClipHandleDesc = STRUCT END; (* <*END*> $END *) VAR base * : Exec.LibraryPtr; PROCEDURE GetNotifyData*( obj : Object ):NotifyDataPtr; VAR d : dummyXFC2; BEGIN d:= SYSTEM.VAL( dummyXFC2, obj ); RETURN SYSTEM.VAL( NotifyDataPtr,SYSTEM.ADR( d.mnd ) ); END GetNotifyData; PROCEDURE GetAreaData*( obj : Object ):AreaDataPtr; VAR d : dummyXFC2; BEGIN d:= SYSTEM.VAL( dummyXFC2, obj ); RETURN SYSTEM.VAL( AreaDataPtr,SYSTEM.ADR( d.mad ) ); END GetAreaData; PROCEDURE GetGlobalInfo*( obj : Object ):GlobalInfoPtr; VAR d : dummyXFC2; BEGIN d:= SYSTEM.VAL( dummyXFC2, obj ); RETURN d.mnd.globalInfo; END GetGlobalInfo; PROCEDURE GetRenderInfo*( obj : Object ):RenderInfoPtr; VAR d : dummyXFC2; BEGIN d:= SYSTEM.VAL( dummyXFC2, obj ); RETURN d.mad.renderInfo; END GetRenderInfo; (****************************************************************************) (** Special values for WindowObjects **) (****************************************************************************) PROCEDURE vWindowAltHeightMinMax * (p:LONGINT): LONGINT; BEGIN RETURN (0-(p)) END vWindowAltHeightMinMax; PROCEDURE vWindowAltHeightVisible * (p:LONGINT): LONGINT; BEGIN RETURN (-100-(p)) END vWindowAltHeightVisible; PROCEDURE vWindowAltHeightScreen * (p:LONGINT): LONGINT; BEGIN RETURN (-200-(p)) END vWindowAltHeightScreen; PROCEDURE vWindowAltTopEdgeDelta * (p:LONGINT): LONGINT; BEGIN RETURN (-3-(p)) END vWindowAltTopEdgeDelta; PROCEDURE vWindowAltWidthMinMax * (p:LONGINT): LONGINT; BEGIN RETURN (0-(p)) END vWindowAltWidthMinMax; PROCEDURE vWindowAltWidthVisible * (p:LONGINT): LONGINT; BEGIN RETURN (-100-(p)) END vWindowAltWidthVisible; PROCEDURE vWindowAltWidthScreen * (p:LONGINT): LONGINT; BEGIN RETURN (-200-(p)) END vWindowAltWidthScreen; PROCEDURE vWindowHeightMinMax * (p:LONGINT): LONGINT; BEGIN RETURN (0-(p)) END vWindowHeightMinMax; PROCEDURE vWindowHeightVisible * (p:LONGINT): LONGINT; BEGIN RETURN (-100-(p)) END vWindowHeightVisible; PROCEDURE vWindowHeightScreen * (p:LONGINT): LONGINT; BEGIN RETURN (-200-(p)) END vWindowHeightScreen; PROCEDURE vWindowTopEdgeDelta * (p:LONGINT): LONGINT; BEGIN RETURN (-3-(p)) END vWindowTopEdgeDelta; PROCEDURE vWindowWidthMinMax * (p:LONGINT): LONGINT; BEGIN RETURN (0-(p)) END vWindowWidthMinMax; PROCEDURE vWindowWidthVisible * (p:LONGINT): LONGINT; BEGIN RETURN (-100-(p)) END vWindowWidthVisible; PROCEDURE vWindowWidthScreen * (p:LONGINT): LONGINT; BEGIN RETURN (-200-(p)) END vWindowWidthScreen; (* Some useful shortcuts. define MUI_NOSHORTCUTS to get rid of them *) PROCEDURE app*( obj : Object ):Object; VAR gi : GlobalInfoPtr; BEGIN gi := GetGlobalInfo( obj ); RETURN gi.applicationObject; END app; PROCEDURE win*( obj : Object ):Object; VAR ri : RenderInfoPtr; BEGIN ri := GetRenderInfo( obj ); RETURN ri.windowObject; END win; PROCEDURE dri*( obj : Object ):Intuition.DrawInfoPtr; VAR ri : RenderInfoPtr; BEGIN ri := GetRenderInfo( obj ); RETURN ri.drawInfo; END dri; PROCEDURE window*( obj : Object ):Intuition.WindowPtr; VAR ri : RenderInfoPtr; BEGIN ri := GetRenderInfo( obj ); RETURN ri.window; END window; PROCEDURE screen*( obj : Object ):Intuition.ScreenPtr; VAR ri : RenderInfoPtr; BEGIN ri := GetRenderInfo( obj ); RETURN ri.screen; END screen; PROCEDURE rp*( obj : Object ):Graphics.RastPortPtr; VAR ri : RenderInfoPtr; BEGIN ri := GetRenderInfo( obj ); RETURN ri.rastPort; END rp; PROCEDURE left*( obj : Object ):INTEGER; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.box.left END left; PROCEDURE top*( obj : Object ):INTEGER; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.box.top END top; PROCEDURE width*( obj : Object ):INTEGER; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.box.width END width; PROCEDURE height*( obj : Object ):INTEGER; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.box.height END height; PROCEDURE right*( obj : Object ):INTEGER; BEGIN RETURN left(obj)+width(obj)-1 END right; PROCEDURE bottom*( obj : Object ):INTEGER; BEGIN RETURN top(obj)+height(obj)-1 END bottom; PROCEDURE addleft*( obj : Object ):SHORTINT; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.addleft END addleft; PROCEDURE addtop*( obj : Object ):SHORTINT; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.addtop END addtop; PROCEDURE subwidth*( obj : Object ):SHORTINT; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.subwidth END subwidth; PROCEDURE subheight*( obj : Object ):SHORTINT; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.subheight END subheight; PROCEDURE mleft*( obj : Object ):INTEGER; BEGIN RETURN ( left(obj)+addleft(obj) ) END mleft; PROCEDURE mtop*( obj : Object ):INTEGER; BEGIN RETURN ( top(obj)+addtop(obj) ) END mtop; PROCEDURE mwidth*( obj : Object ):INTEGER; BEGIN RETURN ( width(obj)-subwidth(obj) ) END mwidth; PROCEDURE mheight*( obj : Object ):INTEGER; BEGIN RETURN ( height(obj)-subheight(obj) ) END mheight; PROCEDURE mright*( obj : Object ):INTEGER; BEGIN RETURN ( mleft(obj)+mwidth(obj)-1 ) END mright; PROCEDURE mbottom*( obj : Object ):INTEGER; BEGIN RETURN ( mtop(obj)+mheight(obj)-1 ) END mbottom; PROCEDURE font*( obj : Object ):Graphics.TextFontPtr; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.font END font; PROCEDURE minwidth*( obj : Object ): INTEGER; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.minMax.minWidth; END minwidth; PROCEDURE minheight*( obj : Object ): INTEGER; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.minMax.minHeight; END minheight; PROCEDURE maxwidth*( obj : Object ): INTEGER; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.minMax.maxWidth; END maxwidth; PROCEDURE maxheight*( obj : Object ): INTEGER; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.minMax.maxHeight; END maxheight; PROCEDURE defwidth*( obj : Object ): INTEGER; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.minMax.defWidth; END defwidth; PROCEDURE defheight*( obj : Object ): INTEGER; VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.minMax.defHeight; END defheight; (* <*IF OberonA THEN*> $IF OberonA *) PROCEDURE flags*( obj : Object ):Sets.SET32; (* <* ELSE *> $ELSE *) PROCEDURE flags*( obj : Object ):LONGSET; (* <*END*> $END *) VAR ad : AreaDataPtr; BEGIN ad := GetAreaData( obj ); RETURN ad.flags END flags; (*************************************************************************** ** Functions in muimaster.library ***************************************************************************) (* <*IF OberonA THEN*> $IF OberonA *) PROCEDURE [4] NewObjectA * [base,-30]( class[8] : ARRAY OF CHAR; tags[9] : ARRAY OF Utility.TagItem): Object; PROCEDURE [4] NewObject * [base,-30]( class[8] : ARRAY OF CHAR; tags[9].. : Utility.Tag): Object; PROCEDURE [4] DisposeObject * [base,-36]( obj[8] : Object); PROCEDURE [4] RequestA * [base,-42]( app[0] : Object; win[1] : Object; flags[2] : LONGINT; title[8] : ARRAY OF CHAR; gadgets[9] : ARRAY OF CHAR; format[10] : ARRAY OF CHAR; params[11] : ARRAY OF Utility.TagItem) : LONGINT; PROCEDURE [4] Request * [base,-42]( app[0] : Object; win[1] : Object; flags[2] : LONGINT; title[8] : ARRAY OF CHAR; gadgets[9] : ARRAY OF CHAR; format[10] : ARRAY OF CHAR; params[11].. : Utility.Tag) : LONGINT; PROCEDURE [4] AllocAslRequest * [base,-48]( typ[0] : LONGINT; tags[8] : ARRAY OF Utility.TagItem) : ASL.ASLRequesterPtr; PROCEDURE [4] AllocAslRequestTags * [base,-48]( typ[0] : LONGINT; tags[8].. : Utility.Tag) : ASL.ASLRequesterPtr; PROCEDURE [4] AslRequest * [base,-54]( req[8] : ASL.ASLRequesterPtr; tags[9] : ARRAY OF Utility.TagItem) : BOOLEAN; PROCEDURE [4] AslRequestTags * [base,-54]( req[8] : ASL.ASLRequesterPtr; tags[9].. : Utility.Tag) : BOOLEAN; PROCEDURE [4] FreeAslRequest * [base,-60]( req[8] : ASL.ASLRequesterPtr ); PROCEDURE [4] Error * [base,-66]() : LONGINT; (* functions to be used with custom classes *) PROCEDURE [4] SetError * [base,-72]( num[0] : LONGINT ):LONGINT; PROCEDURE [4] GetClass * [base,-78]( classname[8] : ARRAY OF CHAR ):Intuition.IClassPtr; PROCEDURE [4] FreeClass * [base,-84]( classptr[8]: Intuition.IClassPtr ); PROCEDURE [4] RequestIDCMP * [base,-90]( obj[8]:Object; flags[0]:Sets.SET32 ); PROCEDURE [4] RejectIDCMP * [base,-96]( obj[8]:Object; flags[0]:Sets.SET32 ); PROCEDURE [4] Redraw * [base,-102]( obj[8]:Object; flags[0]:Sets.SET32 ); PROCEDURE [4] CreateCustomClass * [base,-108]( base[8] : Exec.LibraryPtr; supername[9]: ARRAY OF CHAR; supermcc[10]: CustomClassPtr; datasize[0] : LONGINT; dispfunc[11]: dispatcher ):CustomClassPtr; PROCEDURE [4] DeleteCustomClass * [base,-114]( mcc[8] : CustomClassPtr ):BOOLEAN; PROCEDURE [4] MakeObject * [base,-120](objtype[0] : LONGINT; params[8].. : SYSTEM.ADDRESS ):Object; PROCEDURE [4] MakeObjectA * [base,-120](objtype[0] : LONGINT; params[8] : Exec.APTR ):Object; PROCEDURE [4] AddClipping * {base,-150}(mri{8} : RenderInfoPtr; left{0},top{1},width{2},height{3} : LONGINT): ClipHandle; PROCEDURE [4] RemoveClipping * {base,-156}(mri{8} : RenderInfoPtr; handle{9}:ClipHandle); (*************************************************************) (* layout function, use only in custom layout callback hook! *) (*************************************************************) PROCEDURE [4] Layout * {base,-162}(obj{8}:Object; left{0},top{1},width{2},height{3} : LONGINT; flags{4}: Sets.SET32):BOOLEAN; PROCEDURE [4] DoMethod * ["Classface_Domethod"] ( obj[10]: Object; msg[9]..: Utility.Tag ); PROCEDURE [4] DOMethod * ["Classface_DoMethod"] ( obj[10]: Object; msg[9]..: Utility.Tag ) : LONGINT; (* <* ELSE *> $ELSE *) (****************************************) (* functions to be used in applications *) (****************************************) PROCEDURE NewObjectA * {base,-30}( class{8} : ARRAY OF CHAR; tags{9} : ARRAY OF Utility.TagItem): Object; PROCEDURE NewObject * {base,-30}( class{8} : ARRAY OF CHAR; tags{9}.. : Utility.Tag): Object; PROCEDURE DisposeObject * {base,-36}( obj{8} : Object); PROCEDURE RequestA * {base,-42}( app{0} : Object; win{1} : Object; flags{2} : LONGINT; title{8} : ARRAY OF CHAR; gadgets{9} : ARRAY OF CHAR; format{10} : ARRAY OF CHAR; params{11} : ARRAY OF Utility.TagItem) : LONGINT; PROCEDURE Request * {base,-42}( app{0} : Object; win{1} : Object; flags{2} : LONGINT; title{8} : ARRAY OF CHAR; gadgets{9} : ARRAY OF CHAR; format{10} : ARRAY OF CHAR; params{11}.. : Utility.Tag) : LONGINT; PROCEDURE AllocAslRequest * {base,-48}( typ{0} : LONGINT; tags{8} : ARRAY OF Utility.TagItem) : ASL.ASLRequesterPtr; PROCEDURE AllocAslRequestTags * {base,-48}( typ{0} : LONGINT; tags{8}.. : Utility.Tag) : ASL.ASLRequesterPtr; PROCEDURE AslRequest * {base,-54}( req{8} : ASL.ASLRequesterPtr; tags{9} : ARRAY OF Utility.TagItem) : BOOLEAN; PROCEDURE AslRequestTags * {base,-54}( req{8} : ASL.ASLRequesterPtr; tags{9}.. : Utility.Tag) : BOOLEAN; PROCEDURE FreeAslRequest * {base,-60}( req{8} : ASL.ASLRequesterPtr ); PROCEDURE Error * {base,-66}() : LONGINT; (******************************************) (* functions to be used in custom classes *) (******************************************) PROCEDURE SetError * {base,-72}( num{0} : LONGINT ):LONGINT; PROCEDURE GetClass * {base,-78}( classname{8} : ARRAY OF CHAR ):Intuition.IClassPtr; PROCEDURE FreeClass * {base,-84}( classptr{8}: Intuition.IClassPtr ); PROCEDURE RequestIDCMP * {base,-90}( obj{8}:Object; flags{0}:LONGSET ); PROCEDURE RejectIDCMP * {base,-96}( obj{8}:Object; flags{0}:LONGSET ); PROCEDURE Redraw * {base,-102}( obj{8}:Object; flags{0}:LONGSET ); PROCEDURE CreateCustomClass * {base,-108}( base{8} : Exec.LibraryPtr; supername{9}: ARRAY OF CHAR; supermcc{10}: CustomClassPtr; datasize{0} : LONGINT; dispfunc{11}: dispatcher ):CustomClassPtr; PROCEDURE DeleteCustomClass * {base,-114}( mcc{8} : CustomClassPtr ):BOOLEAN; PROCEDURE MakeObject * {base,-120}(objtype{0} : LONGINT; params{8}.. : SYSTEM.ADDRESS ):Object; PROCEDURE MakeObjectA * {base,-120}(objtype{0} : LONGINT; params{8} : Exec.APTR ):Object; PROCEDURE AddClipping * {base,-150}(mri{8} : RenderInfoPtr; left{0},top{1},width{2},height{3} : LONGINT): ClipHandle; PROCEDURE RemoveClipping * {base,-156}(mri{8} : RenderInfoPtr; handle{9}:ClipHandle); (*************************************************************) (* layout function, use only in custom layout callback hook! *) (*************************************************************) PROCEDURE Layout * {base,-162}(obj{8}:Object; left{0},top{1},width{2},height{3} : LONGINT; flags{4}: LONGSET):BOOLEAN; PROCEDURE DoMethod * {"_a_DoMethodA"} ( obj{10}: Object; msg{9}..: Utility.Tag ); PROCEDURE DOMethod * {"_a_DoMethodA"} ( obj{10}: Object; msg{9}..: Utility.Tag ) : LONGINT; (* <*END*> $END *) (*--- Library Base variable --------------------------------------------*) (* <*IF OberonA THEN*> $IF OberonA *) (* <*$LongVars-*> *) (*------------------------------------*) PROCEDURE* CloseLib (VAR rc : LONGINT); BEGIN (* CloseLib *) IF base # NIL THEN Exec.CloseLibrary (base) END END CloseLib; BEGIN base := Exec.OpenLibrary (name, minVersion); IF base # NIL THEN Kernel.SetCleanup (CloseLib) END; (* <* ELSE *> $ELSE *) BEGIN base := Exec.OpenLibrary( name, minVersion); IF base=NIL THEN IF Intuition.DisplayAlert(0,"\x00\x64\x14missing muimaster.library V8\o\o",50) THEN END; HALT(0) END; CLOSE IF base#NIL THEN Exec.CloseLibrary(base) END; (* <*END*> $END *) END Mui.